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ABSTRACT 
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The enclosed material is a compilation of computer programs 
developed during the period May, 1968 to September, 1970. These 
programs were developed by teachers and students in the high schools 
which participated with us, and by the Project staff. 

All of the enclosed programs have been tested on a Digital 
Equipment Corporation TSS-8 time-shared computer during the summer 
of 1970. To the best of our ability, we have assured ourselves 
that the programs actually run. It should be pointed out, however, 
that we were not able to make an exhaustive exploration of the pro- 
grams, There may be undiscovered bugs (if there aren't, it may be 
the first time in the history of computing) . We would appreciate 
hearing of any which emerge in the future. 

These programs run in the version of BASIC which existed on 
the TSS-8 in August, 1970, and should run on most other versions of 
BASIC. The major potential problem on other machines is the output 
format (DEC uses 14 columns pe>’ print zone, while some other manu- 
facturers use 15; we used the TAB function, which doesn't exist in 
all BASIC compiles) . It may be necessary to make some minor 
changes in programs to adjust this format, Another possible 
problem is in the use of the RANDOMIZE command in some programs 
to start the random-number generator at a random point. If this 
command is not available, some other means should be devised for 
randomizing the start. 

It is our sincere hope that these programs and their sup- 
porting documentation will be helpful to educators who are explor- 
ing the uses of computers in education. 

We are anxious to hear of any bugs, errors, or improvements 
in these programs, and are especially anxious to hear of any novel 
ways of using them. 



Ludwig Braun 
Marian Visich, Jr. 
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TEACHER ASSISTANCE 



AVERG1 / 

Averages grades, lists value of 7 curve, and adjusts 
grades. ■ 

/ 

AVERG2 / / 

Sorts and averages grades. ' / 
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Prints a frequency distribution (bar graph J of grades. 

GRADE / / 

Prints a table of grades (in percentages), number of 
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Counts and prints number of t^nes questions are missed. 

/ 

ITEM2 / 

Sums item analysis. / 

STAT / 

A statistical analysis of laboratory data. (For teachers* 
use) 

STATAL 

Calculates the arithmetic mean (average) of a set of 
numbers . 
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DISCIPLIN E MATHEMATICS 9th YEAR 
SUBJECT MULTIPLICAT ION INVOLVING 

ONE AND TWO DIGIT MULTIPLIE RS 

PROGRAM NAME ARITH 



DESCRIPTION: 



This program calls upon students* in a random fashion, to perform 
multiplication problems. Each student calculates five separate problems, and is 
allotted three chances to respond with the correct answer. At the conclusion of 
three incorrect responses, the computer will report to the student the correct 
answer. At thee one lus ion of five problems, the student will be given a score, and 
a new student will be called. Each factor will not exceed 100. 



OBJECTIVES: 



To review and reinforce students 1 ability to multiply by one and two 
digit multipliers. 

PRELIMINARY PREPARATION: 



None 



DISCUSSION : 

A Operational Suggestions - This particular program is designed for group study, 
and may bcT used for an entire period. A portable TV was originally used to 
display computer output. 

B. Follow-up - By modifying line numbers 52C and 560 to 

520 LET X=A + B 

560 PRINT A B " ; 

this program becomes practice in addition. Modifications may also be made for 
division, subtraction and individual remedial work. 



C. MODIFICATION- If your computer has string capability, student names may be used 
rather than student numbers, by making a few minor programming changes. This 
change (having the computer type out the student f s name) increases the student 
interest. 
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HELLO CLASS TODAY I WANT TO REVIEW MULTIPLICATION 

WITH YOU* WHEN I CALL ON YOU PLEASE COME UP AND TYPE IN 
YOUR ANSWERS. IF YOU ARE WRONG YOU GET TWO MORE CHANCES. 
HOW MANY STUDENTS ARE THERE IN THE CLASS TODAY? 30 
TEACHER! ...GIVE EVERYONE A NUMBER FROM 1 TO 3U 



OK. STUDENT NO* 27 IT'S YOUR TURN! 



GIVE ME YOUR LUCKY NUMBER 
? 5 



SI X 54 - ? 4374 

YOU'RE RIGHT STUDENT NO. 27 



63 X 97 ■ ? 6111 

YOU'RE RIGHT STUDENT NO. 27 



62 X 17 » ? 1054 

YOU'RE RIGHT STUDENT NO. 27 



50 X 78 - 7 3900 

YOU'RE RIGHT STUDENT NO* 27 



93 X 81 - ? 7533 

YOU'RE RIGHT STUDENT NO. 27 
YOU GOT 5 RIGHT OUT OF 5 PROBLEMS. 
GOODBYE... STUDENT NO. 27 



'OK* STUDENT NO. 25 IT'S YOUR TURN! 



GIVE ME YOUR LUCKY NUMBER 
? 

»C 



READY 



2 
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100 HEM W. TEPPER# VYANOANCH HS# 4/21/69 

105 REM REVISED BY C.L0S1K 5-5-70 

106 REM WE DO A RANDOM PROBLEM FOR EACH STUDENT# A -OP- B 

110 REM THIS PROGRAM CALLS STUDENTS IN A RANDOM FASHION TO DO INDIVIDUAL 
120 REM PROBLEMS. BY MODIFYING A FEU STATEMENTS 1 CAN CHANGE THE 
130 REM TYPE OF PROBLEMS. 

140 REM REVISED 5/7/69 

150 PRINT "HELLO CLASS TODAY 1 WANT TO REVIEW "I 

151 REM CHANGE BELOW FOR YOUR OPERATION 

152 PRINT " MULTIPLICATION" 

160 PRINT 

170 PRINT "WITH YOU. WHEN I CALL pN YOU PLEASE COME UP AND TYPE IN" 

180 PRINT 

190 PRINT "YOUR ANSWERS. IF YOU ARE WRONG YOU GET TWO MORE CHANCES." 

200 PRINT 

210 PRINT "HOW MANY STUDENTS ARE THERE IN THE CLASS TODAY"; 

220 INPUT S 
230 PRINT 

240 PRINT "TEACHER! ...GIVE EVERYONE A NUMBER FROM 1 TO"S 
250 PRINT 
260 PRINT 
270 PRINT 

272 REM YOU MUST RANDOMIZE THE PROCESS FOR BEST HESULTS 

275 RANDOMIZE 

280 LET Qb1NT(RNDC-2)*S) 

290 PRINT "OK# STUDENT NO. "Q" IT'S YOUR TURN!" 

300 LET J-0 
310 LET L -0 
320 PRINT 
330 PRINT 

340 PRINT "GIVE ME YOUR LUCKY NUMBER" 

350 INPUT Z 

360 FOR T-l TO Z 

370 LET A-1NT(RND(-2>*100> 

380 LET a-lNTCRND<-5)*100) 

390 NEXT T 
400 LET N-0 
410 LET J-J+l 

415 REM X IS THE ANSWER TO A -OP- B 

420 LET X-A*B 

430 PRINT 

440 PRINT 

450 PRINT 

455 REM PRINT A -OP- B ■ ? 

460 PRINT A" X "B" - "i 
470 INPUT K 

480 IF ABSCK-XX.005 THEN 590 
490 LET N-N+l 
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500 IF N»3 THEN 530 

510 PRINT "YOU'RE WRONG... TRY AGAIN" 

520 GO TO 460 

530 PRINT "YOUR WRONG AGAIN" 

540 PRINT "THE ANSWER IS "X 
550 IF J<5 THEN 3 60 

560 PRINT "YOU GOT "L" RIGHT OUT OF 20 PROBLEMS" 
570 PRINT "GOOD BYE .... STUDENT NO."fi 
5S0 GO TO 250 

590 PRINT "YOU'RE RIGHT STUDENT N0«"0 
600 LET L ■ L+l 
610 IF d<5 THEN360 

620 PRINT "YOU GOT ”L" RIGHT OUT OF 5 PROBLEMS." 
630 PRINT "GOODBYE... STUDENT NO."U 
640 GO TO 260 
650 END 
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DISCIPLINE MATHEMATICS- SOCIAL SCIENCE 




SUBJECT FINANCIAL PROBLEMS 
PROGRAM NAME BANK 



r 



DESCRIPTION : 

This program solves financial problems concerning installment buying, 
long-term loans, and savings accounts. The program gives you a choice of these 
three types of problems, and asks for the information needed to do said problem. 



OBJECTIVES: 



A. This program aids students in learning the terms used in certain financial 
problems. 

B. Student will hopefully be motivated to learn the mathematical logic behind 
the solution of these problems. 




PRELIMINARY PREPARATION : 

A. Student - A review of decimals and fractions would be helpful. 

B. Materials - A terminal, and a means by which to display the output to an 
entire class (e. g. overhead projector, closed circuit TV, etc.) 



DISCUSSION : 

A type of problem may be demonstrated through the use of the computer, 
then the mathematical logic behind the solution of the problem may be developed 
through the use of a flow chart similar to the one that follows. 

Terminology may be taught when the computer asks for input (see sample 

run). 

Since the execution time of one run Is extremely short, many more 
problems may be demonstrated. Depending upon the ability of the class or student, 
a variety of relationships may be discovered. 
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FINANCIAL PROBLEMS 

THIS PROGRAM SOLVES THREE TYPES OF PROBLEMS t 

Cl) INTEREST ON INSTALLMENT BUYING 
<2> PAYMENTS ON LONG TERM LOAM 
(3) BALANCE OF A SAVINGS ACCOUNT 




4 



WHICH PROBLEM WOULD YOU LIKE TO UORK WITH CTYPE 1# 8 OR 3)? 1 



***** 

THIS SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAY 
WHEN YOU PURCHASE SOMETHING ON CREDIT. 

WHAT IS THE CASH PRICE OF THE ARTICLE CS>? 86.99 
DOWN PAYMENT <S>? 10 

NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENT? 18 
NUMBER OF PAYMENTS PER MONTH? 1 
AMOUNT PER PAYMENT C$)? 4.8$ 



THE RATE OF INTEREST CHARGED WAS 5.69 PERCENT. 



WOULD YOU LIKE TO RUN THE PROGRAM AGAIN C 1-YES# 0-N0>? 1 
MilCH PROBLEM WOULD YOU LIKE TO WORK WITH CTYPE 1# 2‘0R'3>? 8 

***** 



THIS SECTION WILL DETERMINE PAYMENTS FOR A LONG TERM LOAN. 




WAT IS THE AMOUNT BORROWED <S>? 3000 
INTEREST CHARGED <£>? 8 
INTERVAL BETWEEN PAYMENTS (MONTHS)? 
TERM OF THE LOAN (YEARS)? C 



DO YOU U1SH TO SEE THE TOTALS ONLY - INSTEAD OF THE ENTIRE 
TABLE - ( 1 -YES# 0-N0>? 0 " ~ 



PERIOD 


OUTSTANDING 
PRINCIPAL AT 
BEGINNING 
OF PERIOD 


INTEREST DUE AT 
END OF PERIOD 


PR1NC IPAL 
REPAID AT 
END OF period 


1 


3000 


20 


115*68 


8 


2884.3a 


19*23 


116*45 


3 


2767.87 


18*45 


117.23 


4 


2650*64 


17*67 


118.01 


3 


8532.63 


16*88 


118.8' 


6 


2413.83 


16.09 


119.59 


7 


2294.24 


15*29 


120*39 


8 


2173.85 


14*49 


121.19 


9 


2052.66 


13*68 


122 


10 


1930.66 


12.87 


122.61 


11 


180 7.85 


12.05 


123*63 


18 


1684.28 


11.23 


124.45 


13 


1559.77 


10.4 


125*28 


14 


1434.49 


9.56 


126.18 


15 


1308.37 


8.72 


126.96 


16 


1161.41 


7.88 


127.8 


17 


1053.61 


7.08 


126.66 


16 


924.95 


6.17 


129.51 


19 


795.44 


5.3 


130.38 


80 


665*06 


4.43 


131.25 


81 


533*81 


3*56 


132.12 


88 


401*69 


2.68 


133 


83 


266.69 


1.79 


133.89 


'84 


134*8 


*9 


134.78 


TOTALS 




056.34 


3000 



YOUR MONTHLY PAYMENT IS Z 135.68 AND TOTALS * 3056.34 
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***** 

WOULD YOU LIKE TO RUN THE PROGRAM AGAIN ( l-YES* 0-N0)T I 
y WHICH PROBLEM WOULD YOU LIKE TO WORK WITH (TYPE I* 8' OR 3)7 3 

***** 

THIS SECTION CALCULATES THE BALANCE OP A SAVINGS ACCOUNT 
IN' WHICH DEPOSITS ARE MADE REGULARLY* 

WAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD £*)? IOOOO 
' HOW OFTEN' IS THE INTEREST COMPOUNDED (MONTHS*) 3 ' 

/ WHAT IS THE RATE OP INTEREST PAID (Z>? S 

FOR HOW LONG WILL YOU DEPOSIT MONEY (YEARS)? S 

THE BALANCE OP YOUR ACCOUNT AFTER 5 YEARS WILL BE S 308S00 
***** 

WOULD YOU LIKE TO RUN THE PROGRAM AGAIN (1-YES* O-NO)? 0 
READY 

c 



s ; 




7 . 
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100 REM FINANCIAL PROBLEMS A. WEBB 12/67 

101 REM REVISED 8/25/70 <P* PESSELJ 
110 PRINT TAB120>» m FINANCIAL PROBLEMS’* 

115 REM REVISED BY Vi TZPPEB. WYANDANCH H.S. 7/10/69 
120 PRINT 

130 PRlNT"THlS PROGRAM SOLVES THREE TYPES OF PROBLEMS!** 

132 PRINT 

134 PRINT" U> INTEREST ON INSTALLMENT BUYINQ" 

136 PRINT" (2) PAYMENTS ON LONG TERM LOAN** 

130 PRINT" <3) BALANCE OF A SAVINGS ACCOUNT” 

140 PRINT 

142 PRINT” WHICH PROBLEM WOULD YOU LIKE TO WORK WITH <TYPE l» 2 OR 3)”J 
144 INPUT 01' ’ 

146 PRINT 

147 FRUIT”*****" 

146 PRINT 

ISO IF Ql>2 THEN 820 
15S IF 01 >1 THEN 260 
I6 r GO TO 590 

1 60 PR I NT "THIS SECTION WILL DETERMINE PAYMENTS FOR A LONG TERM LOAN.** 
270 PAINT “ * 

280 PHI NT” WHAT IS THE AMOUNT BORROWED (»)”* 

281 INPUT A 

235 PRINT” INTEREST CHARGED (*)”* 

236 INPUT I 

290 PRINT”" INTERVAL BETWEEN PAYMENTS (MONTHS)”* 

291 INPUT P ‘ ' * ' 

295 PRINT” TERM OF THE LOAN (YEARS)”* 

296 INPUT Y 
300 PRINT 

360 PRINT”DO YOU WISH TO SEE THE TOTALS ONLY - INSTEAD OF THE ENTIRE" 

361 PRINT”TABLE - < 1-YES* 0-N0)”J * " " 

362 INPUT P5 



o t*J 

375 

380 

390 

400 

410 

420 

430 

440 

445 

446 
450 

460 

461 
470 
460 
490 
500 
510 
520 
522 
525 
530 
535 
541 
548 
550 



nuni 

IF*P5>0 THEN 430 



PRINT* 4 
PRINT” 

PRINT” 

PRlNT n PBRIOD 
PRXNT 

LES Z-(Y*12)/P 

LET K«( 1*(F?12))/100 

LET E-A*K/< J-l^U+KMZ) 

LET E* I NT ( E* 100* • 5 ) /I 00 

LET C-A 

LET F-0 

LET Dl-0 

LET Tl-9 

LET T1-T1*1 

IF T1>Z THEN 554 

Let b-ti 

LET C-C-F 
LET D«C*K 



OUTSTANDING” 
PRINCIPAL AT 
BEGINNING 
OF PERIOD 



INTEREST DUE AT 
END OF PERIOD 



LET F-E-D 

LET C«lNT(C*l0Q+.5)/l00 
LET D-lNT<D*i00+»5)/100 
LET r-INT(F*100*.5)/100 
LET D&«D1*D * 
ir P5>0 THEN 480 

PRINT BJTA8(ll)JC*TAS(29)JDJTAB(48)*r 



PRINCIPAL" 
REPAID AT” 

END OF PERIOD” 
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55a QO TO 460 

554 IF P5<1 THEN S61 

555 PRINT 

556 LET Dl-INT(D1*100*.5)/100 

556 PRlNT**TOTAL INTEREST PAID - S**Dt 

559 PRI NT**TOTAOL PRI NCI PAL REPAIO - * S**A 

560 GO TO S6S 

561 PRI NT M 

564 PRl NT*T OTALS** 1 TAB 1 29 ) I D ! 3 TAB ( 48 > I A 

565 LET E$*INT( (Dl+A)*100**5J/I00 

566 PRINT 

567 LEt E6-E5/((Y*18)/P) 

566 LET E6-INT(100*E6*«S)/100 

569 PRlNT**YOUR MONTHLY PAYMENT IS S**E6 M AND TOTALS S**E5 

570 GO TO* 1060 ~ 

590 PRINT**THIS SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAY** 
600 PRINT**VHEN YOU PURCHASE SOMETHING ON CREDIT** 9 * * ~ 

610 PRINT' 

620 PRINT** WHAT IS THE CASH PRICE OF THE ARTICLE <*>**! 

621 INPUT C 

630 PRINT**' DOWN PAYMENT (S)**! 

631 INPUT D 

640 PRINT" 

641 INPUT'N 

650 PRINT" 

651 INPUT S 

660 PRINT" 

661 INPUT R 
690 PRINT 
720 LET B-R*N*D 
730 LET I-B-C 
740 LET M-N/(S*12) 

750 LET T-I*100/(8*M) 

760 PRINT 

770 PRINT 

77S LET T-INT(100*T*.5)/I00 

780PRINT **the rate of interest charged was"T m percent •** 

790 GO TO 1060 



NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENT**! 
NUMBER OF PAYMENTS PER MONTH**! 

AMOUNT PER PAYMENT ($>**! 



o<5 u rAtm i nid jlui auN wnLwu uriifc* tMb Or rt *wtvinud nOuuuivi' 

630 PRI NT**IN‘ WHICH DEPOSITS ARE MADE REGULARLY*** 

840 PRINT * 

660 PRI NT** WHAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD (S) K ! 

661 INPUT A * 

670 PRINT**HOV OFTEN IS THE INTEAEST COMPOUNDED (MONTHS)**! 

671 INPUT B 

660 PRI NT** WHAT IS THE RATE OF INTEREST PAID CX>"! 

681 INPUT C* * 

690 PRINT**FOR HOW LONG WILL YOU DEPOSIT MONEY (YEARS)**! 

891 INPUT'D 
950 LET F-0 

960 LET E«(C/100)/(1&/B) 

970 LET G*( 12/B)*0 * 

980 LET Tl-0 *’* 

990 LET Tl-Tl+l 

1000 IF Tl*G+l THEN 1030 

1010 LST F-(E*A)*(A*F) 

1020 GO TO* 990 * * 

1030 PRINT 
1040 PRINT 

1045 LET F>INT(100*F**S)/100 . 

1050 PRINT-THE BALANCE OF YOUR ACCOUNT AFTER H D**YEARS WILL BE S**F 
1060 PRINT 
10 70 PRINT 
1060 PRINT 

1081 PRINT"*****" 

1 0 8 2 PRINT 

1064 PRINT** WOULD YOU LIKE TO RUN THE PROGRAM AGAIN ( 1 -YES* Q-NQ>"! 

1086 INPUT 04 

1090 IF Q4>0 THEN 140 

UOO END 
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DISCIPLINE CALCULUS-GRADE 13 



SUBJECT LENGTH OF ANY CURVE 




PROGRAM NAME CRVLEN 



DESCRIPTION : 

This program approximates the length of any curve between two 
fixed points on the curve, by taking an increasing number of subintervals 
and computing the sum of the secants involved. 



OBJECTIVES: 

A. Time saving factor for computations. 

B. By typing out successive approximations, the machine displays the 
manner by which the limit is approached. 

C. The attendant discussion focuses attention upon the techniques needed 
to build up the analytic method for finding the length of a curve. 



PRELIMINARY PREPARATION: None 



DISCUSSION : 

The operator inserts any function, sets up his own limits, and the 
computer proceeds to print out several approximations to the actual length 
a diagram (such as below) should be displayed, indicating the geometric 
basis for the computations. 
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LENGTH OF A CUB VS 

THIS PROGRAM APPROX I MATSS THE LENGTH OP ANY CURVE BETWEEN 
TOO POINTS HAVING PANS Q AS THEIR RESPECTIVE ABSCISSAS* 
THE PROGRAM' DIVIDES THE CURVE INTO INCREASING NUMBERS OT 
SOBINTERVALS* ' JOINS TRESS VI TH‘ SECANTS AND 'FINDS THE SUM 
OP THESE SECANTS* 

TO INPUT THE FUNCTION WHICH YOUR CURVE REPRESENTS* TYPE AS 

follows after the program stops i 

(TYPE THE * RETURN* KEY AFTER EACH LINE INCLUDING *RUN*> 

1 GO TO BOO 

300 DBF FNY(X>»* • • *(YOUR FUNCTION OF X>**** 

RUN 

FOR EXAMPLE* TO USE THE FUNCTION 8*X«3*3*X«8-8*X*3 
YOU WOULD TYPSI 

1 GO TO 800 

300 DBF FMY(X>»8*X*3*3*X*8-8*X*3 
RUN 

YOU NIGHT TRY THAT AS YOUR FIRST RUN* 



READY 

i GO TO 009 

300 DBF FNYCX>>8*Xt3*3*Xt8-8*X*3 
RUN 



WAT ARE THE ABSCISSAS OF THE END POINTS OF THE INTERVAL 
WHOSE LENGTH YOU GANT (SMALLER ONE FIRST IP* 4)7 -1*0 



NUMBER ft* 


SUM OF 




SU1INTKRV. XS SECANT LENGTHS 


S CHANGE IN LENGTH 


1 


888*0407 


MO PREVIOUS VALUE 


8 


888*1883 


•0818SI48 


A 


889*0888 


•OSS 7383 


8 


831*0171 


•0870987 


10 


831*9048 


•1703883 


38 


838*0100 


9*034 808E-3 


04 


838*0410 


4*7137898*3 


188 


838*0488 


1.8G771SS-9 


8S0 


838*0801 


3*0080878-4 


***** 






GOULD YOU LIKE 


TO TRY MEN END 


POINTS (1-YES* O-MOIT 


TO TRY ANOTHER 


FUNCTION* RETYPE LINE 300* AMD ’RUN* 



SEE INSTRUCTIONS FGR'MORE DETAILS* IP YOU ARE FINISHED* 
•1* AND ‘RETURN* KEY AFTER THE PROGRAM STOPS* ~ 



1 
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Math 

CRVLEN 






800 BEM LED8TM ©P A COBVB-Q'd* ©°C©CJM0R 7-89-33 

801 2EC3 RSVISBD R-7-70 (Do TOSSEU (CCWBIM&TSOKI OP LSCU0 0 LBFUQ) 

803 aSK 5KPOBTAC5T VARIABLES 0 S-SECAOT LSH0T0J 31 -PREVIOUS SGCAST 
100 RES3 LEBBTMI i»-PSnC5S5T SEAHfflB SET SECATJT LSEJOTR 

810 PRINT TA®(E03I **LCNS?H ©F A CURVE"" 

111 PBS 07 *’ ' 

180 PREffl '-mss PBCORAM APPROXIMATES THE LEN6TH OF ANY CUSPS BETUEKM" 

181 print a rm p&stm having p'asd e as thbxb respective abscissas*** 

188 PRlGT? e, T81E PR®@BAM DIPS 330 TMS CURVE IE170 IHCaBASlOa NUMBERS OP" 
183 PAINT “SUQEOTBRWAS.SJ. ‘ «J31MS THESE WTH' SECANTS AOD PIC1D8 TBS SUV 

150 FBI 157 “OF THESE SBGAUTSi" * .... 

las palm- ‘ 

i06 PB2GJT “T© INPUT THE FUKC720M tiSSICH TOUR CURVE REPRESENTS* TYPE AS** 

187 PRIM? “POLLOBS AFTER THE PROGRAM ' STOPSS" ' ' * 

188 PR20T "(TYPE THE ‘RETURN* KEY AFTER EACH LIUS SECLUDING »RUS*>" 

189 PBS or ■ ' ■ " ‘ .......... 

130 PBSEJT ” ? 0© TO BOO” 

151 PRINT " 300 OEP PCJYlX>ore..(YOUB FUUCTIOU OF X>*.*." 

138 PRINT " RITOP ... - - 

133 PBS OT 

134 PaBHT "FOB EXAMPLE* T© USE TBO FUMCT108 3<«t3«-3eS»8-8«X*3" 

13$ print n rm wsiaw> type a” 

130 PRINT 

137 PBS ST « 1 0© TO 30©" 

130 PRINT " 300 DBF FOTCHlaaoReS^SCiHOG-OOK^S 00 

13© PRINT ° raKr° 

140 PREMT 

141 PRSKT “YOU MIGHT TRY THAT AS YOUR FIRST HUM.” 

ISO STOP 

800 RSM CALCULATION AMD PRINT 100 IF RESULTS 

80S PRINT "«3A? ARE THE ABSCISSAS ’OF THE BHD P0ICTSS OF THE INTERVAL" 
80S PREtST a H0®A8 LKMOYH YOU ©A£5T (SMALLER OHO FIRST 8P*0>"i * 

SOT IMPUT PflS 

9©o s? p«e tsukj si s 

809 PRINT °P 'HOST 'BE LESS TC3A63 08" 

810 eO’TO StJ 4 } 

818 INPUT P*Q 

sis Pai err 

814 print “ ERmnsn or**" stst of" 

815 PRINT n S08SBTERVAL8°f"3BCA£JT L 8 H 3 TMa"* M 3 CHANGE IN L8BGTW" 

81A PRINT **«.•**— ~i— ' »« — • 

817 PRINT 
830 LET 31=0 
880 FOR cm TO 9 

300 DSF Ft9T(HiaQmJtoa«SoJI»ai-Q02o3 
310 LST 8»8T«®il> 

380 LST BoCQoPJPg 

330 LST 8*6 

340 FOR 1*8 7© E“1 

300 LST LfflSfflBt«PST<P-oa*HoRS-PE9Y<P«S<ill>>»a«Mi«3> 

300 LST S»S«L " 

370 ERST £ 

378 IP 81 60 THEM 373 

37® PRINT E«5o° S© PREVIOUS VALUE" 

374 9®‘T© SOS’ ‘ 

378 LOT PS-UABSCSl-SJJ/Sl >01)30 

380 PRINT Si3i* "PS 

388 LET SfioS ' " “ 

300 NEST O' 

409 PRIST 

401 PRINT “ooooo 09 
408 PRIST ' 

408 PaiST “B0ULB VMS LIRE TO TRY E3BW GKO POINTS (1-YB8« ©»BO>**l 

404 tmm 61 

408 IP aifrOTHBW 010 

410 PRIST 

445 PRIST "TO TRY ANOTHER PU33CT2CS* RSTYPO LINS SOO* Cm "RCB 0 ." 

443 PRIST “SEE 8WSTBSSTS0S8 P0a*tJ6SB DETAILS! IP ' TOO ' ACS *PSnii3«D#" 
447 PRIST “TYPE’ °1 0 AfflD* *ffiC?uaB 0 KST AFTER TBS PROGRAM STOPS*® 

900 SSO ' ’ 




* 



f 





DISCIPLINE CALCULUS - GRADE 13 



SUBJEC T AREA UNDER ANY CURVE , 
(ANALYTICALLY DEFINED) 
PROGRAM NAME CVAREA 



DESCRIPTION : 

By numerical methods, this program evaluates the definite integral 
of f(x), from x = a to x = b, by four different methods of successive approxi- 
mation: 

I Rectangles (starting with f(a) as height) 

II Rectangles (starting with f(a-fh) as height) 

HI Trapezoids 

IV Parabolas (Simpson* s Rule) 



OBJECTIVES: 

A. Enhances comprehension of the analytic procedures for finding the area 
under a curve. 

B. Dramatizes the limiting processes involved. 

C. Decreases the time needed for lengthy computations. 



PRELIMINARY PREPARATION : 

Prior to the computer run, diagrams should appear on the board, 
or on the overhead projector screen to demonstrate the geometric significance 
of the computer output. 
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Inscribed Rectangular Approximation 



Mathematics 

CVAREA 




DISCUSSION: 



This program may be run as an introduction to the problem of 
finding the area under a curve. In some classes, the consideration of 
Simpson’s Rule may be omitted or briefly hinted at. With the more 
mathematically talented classes, an explanation of this parabolic 
approximation should precede the running of the program. 
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Mathematics 

CVAREA 




AREA UNDER A CURVE - INTEGRATION 

THIS PROGRAM EVALUATES THE DEFINITE INTEGRAL OF F( A) 
FROM Asa TO X=S BY FOUR METHODS OF NUMERICAL APPROXIMATION* 



I RECTANGLES (INITIAL HEIGHT OF F(X)) 

II RECTANGLES (INITIAL HEIGHT OF F(X+H) ) 
III TRAPE&OIDS 

« IV PARABOLAS (SIMPSON'S RULE) 



AFTER THE PROGRAM STOPS* YOU MAY ENTER YOUR FUNCTION AS FOLLOWS * 
I GO TO 200 

300 DEF FNY(A)*.o.(YOUR FUNCTION OF A)... 

RUN 

FOR EXAMPLE# TO FIND THE AREA UNDER THE CUnVE Y=A»3 YOU 
WOULD TYPE* 

1 GO TO 200 

300 DEF FNY(A)=At 3 

RUN 



YOU MIGHT TRY THAT AS YOUR FIRST RUN. 

END EACH LINE# INCLUDING 'RUN'* WITH THE 'RETURN' KEY. 




READY 

1 GO TO 200 

300 DEF FNY(X)-Xt3- 

RUN 

WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST:A*B)? i«lu 



NUMBER OF 
SUBINTERVALS 



2 

4 

8 

16 

32 



I. SUM OF 
RECTANGLES 



753.1875 

1501.172 

1969.137 

2226.612 

2361.223 

2429.997 



II. SUM OF 
RECTANGLES 



5248.687 

3748.922 

3093.012 

2788.55 

2642.192 

2570.481 



III. SUM OF 
TRAPEZOIDS 



3000.937 
2625.047 
2531.074 
2507.581 
250 1 . 708 
2500*239 



IV. SUM OF 
PARABOLAS 



2499.75 

2499.75 

2499.75 

2499.75 

2499.75 

2499.75 



NOTE THAT SIMPSON'S RULE (IV) CONVERGES FASTEST. 

WOULD YOU LIKE TO TRY NEW VALUES FOR A AND B (1-YES* O-NO)? 0 
***** 



TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 300 
AND 'RUN'. SEE INSTRUCTIONS FOR MORE DETAILS. 

IF YOU ARE FINISHED# TYPE '1* AND THE 'RETURN* KEY. 



READY 

c 
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Mathematics 

CVAREA 



100 

101 

102 

103 

104 

105 
110 
111 
112 

113 

114 

115 

116 
117 
116 



HEM AREA UNDER A CURVE- (bi» Jo 0 5 CONNOR 

HEM REVISED 6/16/70 CD« PESSEL) (COMBINATION OF DEF IN AMD ACCUQ) 

HEM IMPORTANT VARIABLES- OF SUB INTERVALS* AREA BY 

HEfJ RECTANGLES <FCX))-P* BY RECTANGLES (FCX-J-n) ) -U* 

REM BY TRAPEXOIDS^T.-' BY PARABOLAS- S5 C-STOiiES PREVIOUS 
REM VALUE OF Sc 

PRINT TA.8C15); "AREA UNDER A CURVE - INTEGRATION" 

PRINT 

PRINT THIS PROGRAM EVALUATES THE DEFINITE INTEGRAL OF F(X)" 

PRINT "FROM X=A TO X-B BY FOUR METHODS OF NUMERICAL APPROX I MAT I ON S M 
PRINT 

PRINT TA.B £ 20 ) * "I RECTANGLES CINITIAL HEIGHT OF FIX))" 

PRINT TAB ( J. 9 ) * "IX RECTANGLES (INITIAL HEIGHT OF FCX+H))" 

PRINT TAB ( 1 8 ) j "III TRAPEZOIDS" 

PRINT TA3C19):’ "IV PARABOLAS (SIMPSON’S RULE)" 



119 PRINT 

120 PRINT 

121 PRINT 

122 PRINT 

123 PRINT 

124 PRINT 

125 PRINT 



"AFTER THE PROGRAM STOPS - YOU MAY ENTER YOUR FUNCTION AS"J 
" FOLLOWS!" 

TAB ( 1 3 > 5 "1 GO TO 200" 

TAB (13)5 "300 DEF FNYCX) * o • » < YOUR FUNCTION OF X)oo." 

T.ABC 13) J "RUN" 



126 

127 

128 

129 

130 

131 

132 

133 

134 

135 
150 
200 
201 

203 

204 

205 
210 
211 
212 

213 

214 
218 
219 
250 
260 
300 
310 
320 
330 
340 
350 
360 



PRINT 

PRINT "FOR EXAMPLE* TO FIND THE AREA UNDER THE CURVE Y=Xt3 YOU" 
PRINT "WOULD TYPES" 

PRINT 

PRINT TA3< 1 3? .5" I GO TO 200" 

PRINT TABC 1 3 ) * "300 DEF FNY<X>«X?3" 

PRINT TABC 13)r 3 RUN" 

PRINT 

PRINT "YOU MIGHT TRY THAT AS YOUR FIRST RUNo" 

PRINT "END EACH LINE* INCLUDING 5 RUN% WITH THE * RETURN ’ KEY." 
STOP 

PRINT "WHAT ARE YOUR VALUES FOR A AND B C SMALLER FIRSTSA*B)"5 

INPUT A*B 

IF 3>~A THEN 210 

PRINT "A MUST BE LESS THAN BSV 

GO TO 200 

PRINT 

PRINT " NUMBER OF"*”I* SUN OF"* "I I* SUM OP’/Uilo SUM OF"* 
PRINT "I Vo SUM OF" 

PRINT "SUBINTERVALS" * "RECTANGLES"* "RECTANGLES"* "TRAPEZOIDS"* 
PRINT "PARABOLAS" 

PHI NT — — — , — d •• — ** ac ? 99 — «•«*** 

PRINT " " 

LET M<=~2 
LET S=0 

DEF FMY<X)=Xt3 
LET M=M+3' 

FOR N=M TO M*2 
LET C=S 
LET Q=0 
LET P«=0 
LET D*2 »M 




> 
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365 PRINT D* 

370 LET H»(B-A)/D 
380 FOR I»0 TO (D-l> 

390 LET P«P+H*FNY(A+I*H> 

400 LET Q«Q+H*FNY(A+I*H+H> 

410 NEXT I 
415 PRINT P*a* 

420 LET T»CP+a>/2 
425 PRINT T* 

430 LET U»FNY(A>+FNY(B> 

440 FOR d»2 TO (D-2> STEP 2 
450 LET U»U+2*FNY(A+d*H> 

460 NEXT J 
470 LET V»0 

460 FOR K»1 TO (D-l> STEP 2 
490 LET V* V+4*FNY ( A+K*H > 

500 NEXT K 

510 LET S»<U+V)*(H/3> 

520 PRINT S 
530 NEXT N 

535 IF D<64 THEN 310 

540 IF ABS< (C-S>/( <C+S>/2> >>*0001 THEN 310 
550 PRINT 

560 PRINT "NOTE THAT SIMPSON'S RULE (IV) CONVERGES FASTEST*" 

600 PRINT 

610 PRINT "WOULD YOU LIKE TO TRY NEW VALUES FOR A AND B (1-YES* 0-N0>"i 

611 INPUT as 

612 PRINT 

613 PRINT "***♦*" 

614 PRINT 

615 IF Q5»Q THEN 200 

620 PRINT "TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 300" 

621 PRINT "AND 'RUN'* SEE INSTRUCTIONS FOR MORE DETAILS*" 

622 PRINT "IF YOU ARE FINISHED* TYPE '1' AND THE 'RETURN* KEY*" 

650 END 



\ 
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DISCIPLINE MATHEMATICS, JR -HIGH 

GENERAL MATH 

SUBJECT GREATEST COMMON DIVISOR 
PROGRAM NAME GCD 




M 



DESCRIPTION: 

This program finds the greatest common divisor for two or more 
numbers. 

OBJECTIVES : 

To aid the teacher in demonstrating a method of finding the 
greatest common divisor. 



PRELIMINARY PREPARATION: 
See discussion. 



DISCUSSION: 



It is suggested that the teacher explain the meaning of the 
greatest common divisor prior to using this program, and show a 
number of examples. 



By using the flow chart which follows, the method and logic 
the computer uses, can be explained to students. It is suggested that a 
supplementary device be used to display output to class -size groups. 



jr 
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IMIS PROGRAM WILL PIMP THE WtttlST COMMON DIVISOR 



INS NUMBERS IB 36 96 HAVE THE Q.C.D. IB 



ANOTHER SET OP NUMBERS <I>YES« O-MO) t 1 
NOV MANY NUHMtRS BO YOU VI SH TO INVESTIOATET 3 
TYPE IN THE NUMBERS* ONE AFTER BACH QUESTION MARK. 
T BO * 

T 36 
» 96 

THE NUMBERS BO 36 96 HAVE THE Q.C.D. 4 



ANOTHER SET OP NUMBERS <I*YES* 0«N0> T 1 
NOV MANY NUMBERS DO YOU VI SH TO INVESTIOATET 3 
TYPE IN THE NUMBERS* ONE AFTER EACH QUESTION MARK, 
f 80 
f 36 
» 97 

THE NUMBERS BO 36 97 ARE RELATIVELY PRIMS* 



ANOTHER SET OP NUMBERS (l-YSS* 0»N0> T 0 




T IS 
T 36 
T 96 







READY 
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Math 

GCD 



io© jobs e?o tsppss Bob* - mathematics 

no ««» assess© sy CokossK' $*ao«*70 

III R8N WS5 A3S THE MUM8SRS «UP TO 100) 

180 PRINT W «S PROGRAM WSU« HMO THE QBSATEST COMMON DIVISOR" 

ISO PBS NT w F@ft YU® OB MOBS MW3ERBS.* * * 

140 DSO StEOCJ 

ISO PRINT °M©» MANY E3UM0BaS &ij YOU WISH TO INVESTIGATE"; 

100 INPUT ST ...... 

165 IP ABS«S3“S®T<ra>2»<Jc,©©OB TKEB3 11© 

166 PRINT "TRY A6&SN® 00 
16? SO* T@ 8S0 

170 PRINT ra TOK m THS NUMBERS; OMB AFTER BACH QUESTION MARK." 

ITS V&? S»1ES8S - • * ' ’ 

ISO FOB K»I TO E3 

190 IB SPUT 2SSSD 

193 IF ECK)i»S*TNSN 310 

SCO LET SoSCKI 

BIO MUSKY K 

BOO LET Qa*0 

B30 FOB TO S 

840 FOB S«1 TO 0 ' “ 

650 IF JK8S^M«»IN?«X«S>/83> THEN 900 

860 MEET S * 

890 LET QaB 
300 NEXT W 

310 PRINT ®THB NUMBERS* 5 ! 

380 FOR T«I TO M ’ 

330 PBSMT K<Y)3 

340 MEET T 

360 IF 6*0 THEM 380 

360 PRINT "ARE BSUATSVEkY PBSMB.* 0 

370 bo y© so© ' * 

380 PRINT «HAV8 THS C.C.Oo "36 
390 PRSMT 
400 PRINT 

410 PRINT "ANOTHER SET OF MUHBSBS <t»YES« 0-MO) "I 
400 INPUT 2 

430 IF Sal THEN 190 
440 SF SnO THEN 470 
480 PRINT "TYPE 11 OR 0 AS BBRBCTED." 

460 «0'T0 480 

470 SMS 



20 
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DISCIPLINE CALCULUS - GRADE 13 

sin x ^ 

SUBJECT LIMIT OF " x 

PROGRAM NAME LIMSIN 



DESCRIPTION : 

sin x 

This program demonstrates that the limit of x , as x approaches 
0, equals 1, provided x is measured in radians. If x is measured in degrees* 
the limit equals approximately .017. 



OBJECTIVES: 



sin x 



A. To demonstrate the manner by which the limit of x is approached. 

B. To show that degree measure does not yield the same solution as 
radian measure. 



PRELIMINARY PREPARATION: 
A. Student 



Knowledge of degree vs. radian measure. 
B. Materials 



None 



DISCUSSION : 

Following the computer type-out, the teacher will use the analytic 
method to evaluate the limit. Prior to this discussion, the student should 
be reminded of the area formulas for a triangle and for a sector in terms 
of the central angle measured in radians. A geometric diagram should be 
presented showing the sector lying between two triangles. 



T 




Here, z* 2 sin © £ ir 2 © £ ^r 2 tan © 

Circular Sector with Circumscribed and Inscribed Triangles 
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Calculus - 
LIMSIN 



The teacher can modify the type* out by inserting: 195 Go to 300 . 
This decreases the number of lines typed out to the final eleven appearing 
on the program "run". 




/ 
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LIMSIN 



THIS PROGRAM DEMONSTRATES THAT THE LIMIT OF 
PCX) - ( SIN X)/X# AS X APPROACHES O* IS EQUAL TO I » 
PROVIDED X IS MEASURED IN RADIANS. 

SIN(X) 

LIMIT - 1 

X-->0 X 



WEN X 


IS IN DEGREES# 


WHEN X IS IN 


RADIANS# 


X IS 


FCX) IS 


X IS 


PCX) IS 


90 


•01111111 


1.570 795 


•6366803 


65 


•01171994 


1.463529 


•6715035 


60 


•01231009 


1.396262 


• 705317 


75 


•01267901 


1.306996 


.7379134 


70 


•01342416 


1.221729 


•7691492 


65 


•01394319 


1.134463 


•7988666 


60 


•01443375 


1.047197 


.6269936 


55 


•01469367 


.9599303 


•6533449 


50 


•01532068 


.6726639 


.6776225 


45 


•01571347 


•7653975 


•9003165 


40 


•01606966 


.6981311 


•9207256 


35 


•01636769 


•6106647 


•9369575 


30 


•01666665 


•5235963 


•9549297 


25 


•01690472 


.4363319 


•9665696 


20 


•01710099 


.3490656 


.9796156 


15 


•01725459 


.2617992 


•966616 


10 


•0173646 


.1745326 


•9949308 


5 


•01743113 


•06726639 


•9967313 


1 


•01745239 


.0 1 745326 


•9999492 


• 9 


•01745256 


.01570 795 


•9999589 


• 8 


•01745871 


.01396262 


•9999675 


.7 


•0 1 745284 


.01221729 


•9999751 


• 6 


•01745296 


.01047197 


•9999617 


.5 


•0 1 745306 


6.726639E-3 


•9999673 


• 4 


•01745314 


6.981312E-3 


•9999919 


• 3 


•0174532 


5.835984E-3 


•9999954 


• 2 


•01745324 


3.490656E-3 


•999998 


• 1 


•01745387 


1 * 745328E-3 


•9999995 


•09 


•01745327 


1.570795E-3 


•9999996 


•06 


•01745387 


1.396262E-3 


•9999997 


•07 


•01745327 


1.221729E-3 


•9999998 


•04 


•01745327 


1.047197E-3 


•9999996 


•05 


•01745388 


8.726639E-4 


•9999999 


•04 


•01745328 


6.98131 1E~4 


•9999999 


•03 


•01745388 


5.235984E-4 


1 


•02 


•01745328 


3.490656E-4 


1 


• 01 


•01745326 


1 . 745328E-4 


1 
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LIMSIN 




100 REM BRUCE BRENT HHHH BKLYN POLY 7/11/69 

105 REM REVISED BY C.L0S1K 8-27-70 

110 PRINT ” THIS PROGRAM DEMONSTRATES THAT THE LIMIT OF" 

115 PRINT ”F<X> - (SIN X)/X. AS X APPROACHES 0* IS EQUAL TO 1." 
117 PRINT "PROVIDED X IS MEASURED IN RADIANS." 

ISO PRINT 

125 PRINT " "." SINCX)" 

130 PRINT " "."LIMIT ■ 1" 

135 PRINT " "."X— >0 X" 

140 PRINT 
150 PRINT 

160 PRINT "WHEN X IS IN DEGREES ."."WHEN X IS IN RADIANS." 

165 PRINT .......... — 

170 PRINT "X IS"»"F<X> IS"."X IS'VFCX) IS" 

175 PRINT " •' 

160 PRINT 

200 FOR Y-90 TO 5 STEP -5 
210 LET Z-Y 

220 LET Z-3.14159*Z/180 
830 LET X-SINCZl/Z 
240 LET Q-SIN(Z>/Y 
250 PRINT Y.Q.ZiX 
260 NEXT Y 
270 PRINT 

300 FOR Y-l TO .1 STEP -.1 
310 LET Z-Y 

380 LET Z-3.14159*Z/180 
330 LET X-SIN(Z>/Z 
340 LET 8-SlNCZ>/Y 
350 PRINT Y.8.Z.X 
360 NEXT Y 
370 PRINT 

400 FOR Y-.09 TO .01 STEP -.01 
410 LET Z-Y 

420 LET Z-3. 141 59*Z/180 
430 LET X-SINCZl/Z ' 

440 LET 8-SINCZl/Y 
450 PRINT YiO.ZiX 
460 NEXT Y 
500 END 




/ 
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DISCIPLIN E MATHEMATICS 10th YEAR 
GEOMETRY 



SUBJECT AREA OF A CIRCLE 
PROGRAM NAME PI2 



DESCRIPTION : 

This program computes area of a circle and M pi M by 
using the areas of inscribed and circumscribed regular polygons. 



OBJECTIVES : 

As an introduction to the limit process and a method for 
approximating M pi* 1 . 



PRELIMINARY PREPARATION: 



A. 



Student - Students must know how to calculate the area of a circle 
and~a triangle using the formulas: A = ttR^ and A = |bh. 




B. Materials - chalkboard, board compass, and straight edge. 



DISCUSSION: 



Ask students to find the area of a circle without using the formula. 
The instructor may suggest to the class to inscribe and/or circumscribe an 
equilateral triangle. Have students compare the area of their figures to that 
of the circle. Some students will suggest to increase the number of sides 
and the instructor should suggest that a regular hexagon be used for 
convenience of drawing. This can be illustrated on the chalkboard for the 
class. Another comparison is made between the areas and then the students 
will observe that to obtain any satisfactory results, the number of sides 
must increase greatly. At this moment the instructor should introduce 
this program and explain to the class that the program will increase the 
number of sides of a regular polygon and compute the area of each new 
figure. A table is printed giving the areas of both inscribed and circum- 
scribed regular polygons and also the number of sides for each area. 

The students can readily see that the machine has eliminated the tedious 
calculations. Nov* have the students calculate the area of the circle 
using the formula and make a comparison of results; thus, the students 
can observe that the areas of the polygons approach the area of the circle. 
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PI2 



0 



DISCUSSION: (con 1 t) 

If students had taken a unit circle, they would have observed a 
method for approximating ” pi” * 

Due to machine operation, the value of ” pi” was used to 
convert degrees into radians. To avoid any circular reasoning, the 
instructor can use half -angle formulas to eliminate ” pi” from this 
program. 
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a cibc lx usino inscribed and circumscribed rebular polybons 



WAT IS THE RADIUS OP THE CIRCLET 10 






INSCRIBED 


CIRCUMSCRIBED 


NUMBER OP 


INSCRIBED 


CIRCUMSCRIBED 


AREA 


AREA 


SIDES 


*8 ERROR 


* S ERROR 


189*9039 


519*9148 


3 


•59*95 


99*4 


859*0079 


349*4099 


9 


•174 


10*07 


899*9999 


381*5307 


18 


-4.51 


8*35 



MOV MANY Slots 00 YOU THINK ASK OttOtO TO APPROXIMATE 
tMK ASIA 00 THIS CIRCLE)' 100 

313*9983 914*8084 100 -*07 *03 

WILD YOU L.IKS TO THY ANOTHER NUMBER OP SIOSS < 1-YES* 0-NQ>» 1 
NON NANY SIOSS DO YOU THINK ARE NEEDED TO APPROXIMATE 
THE AREA OP THIS CIRCLE)* ISO' 

Sat MONT Slots IS* VALID* OUT NOT NECESSARY FOB A 
0009 APPROXIMATION. USB 10000 AS THE NAXINUN NUMBER. 

HON NANY SIDES DO YOU THINK ARE NEEDED TO ' APPROXIMATE 
THE AREA OP THIS CIRCLE)* 10000 

914* ISO 314*199 10000 0 O 

MOULD YOU LIKE TO TRY ANOTHER NUMBER OP SIDES (l-YES* O-MOII 0 
MOULD YOU LIKE TO TRY AMOVRHI RADIUS Cl-YtS* 0-N0)t 1 * 

* 444 * 

WAT IS THE RADIUS OP THE CIRCLE) 1000000 

ART RADIUS MILL* MORN* DOT OSS A HUHDtB LESS THAN 1000* 

WAT IS' THE RADIUS OP THE CIRCLE) 999 



INSCRIBED 


IT IB^IIHTfltTflT HI 


BOER OP INSCRIDBD 


CIRCUMSCRIBED 


' AREA 


AREA 


SIMS 


*S ERROR 


'* 8 ERROR 


1*099443840 


9*199794849 


3 


•90*99 


99*4 


8*998001849 


3*4971 T3B49 


9 


•17*3 


10*07 


0*994001849 


3*000990849 


18 


•4*91 


8*99 


NOV MANY SIDES DO YOU THINK ARE 
IKS AREA OP TMS CIRCLE) 10000 


«“■» 


TO APPROXIMATE 




3.I3SM9E49 


3*139310849 


10000 


0 


0 



MOULD YOU LINK Tt TRY ANOTHER NUMBER OP SIDES * 1-YES* O-NOH 0 
MOULD YOU LIKE TO TRY ANOTRER RADIUS <1-Yt8# 0-N0>» 0 
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PI2 



100 am 1U4ISTBAT10M or LIMITS US IMS G1MCLSS AMD FOLYSOMS 

101 an asvisxo w/» <o* pssssli 

108 an INPOBTANt' VAAIA 8 LB 5 * *t>IIMUIO 881*1 A 8 -CI 8 CUNSCBIAB 0 
1 M an ABS*f AS-ACTUAL * 88*1 81*8 18808 IT All PM 88808 08 AO 
110 PAINT "AABA OP A CI 86 L 8 USIN 8 1 M 8 C 8188 D AMO 0186088081880 "» 

in raiMT "Bsoulaa poltoons" * 

118 raiMT 

118 PAINT "****•" 

1 M PAINT 

180 POINT "THAT 18 TUB 8 A 0108 OP TUB CI 8 CLB"! 

188 INPUT 8 ‘ 

187 IP 8*1000 THn 181 

188 PAINT "ANY 8 A 01 US WILL VOAA# OUT 088 A M 80 B 8 LESS THAN 1000 ." 
180 00 * TO 180 

180 INPUT 8 

131 IP A»—l THn 184 

188 PAINT "AAOIUS SHOULD 08 AT LEAST . 111 " 

138 88 * TO 180 * 

184 UT A 8 * 3 » 1418 * 8*8 
138 PAINT ' - 
13 * POINT 

140 PAINT "INS 68 IBED"#"CI 8 CUNS 6810 SD"#« 

141 POINT "lN 8 CalA 8 P"«"ClAC UN 868108 0 " 



ABBA P# 



81088"#" 8 



8 88808" 



180 POINT A88A"#" 

188 POINT 

1*0 P08 no TO 8 

170 LBT N*8*<8tK> 

ITS 00800 ISO 

177 NSBT 8' 

178 80 TO 840 

170 Bn COMPUTATION SUOaOUTINS CUNS8 180-8801 

188 LBT Ua*8*SlN(3#141S0/Nl 

190 LBT Al»B*C©SC3.l418*/Nl*N*L/t 

800 LST A8*N*(8*»*TA8<3i 14189/81 

80S LBT P1*<<AI-A31/A31*100‘ 

80* LBT P8-C CAS “A3 1/431*100 

810 PAINT A1»A8#" * *I8#INTCPI*100**5>/100# IMT<P8*100+#81/100 



TO APPAOXINATB" 



8*1 



8*8 

a** 

0*7 

8*8 

889 



A" 



874 

878 

•80 
M 
17 



891 

893 



89 * 



PAINT 
PAINT 

PAINT "800 MANY 3 I 0 B 8 00 YOU THIN 
PAINT "THE A 8 BA OP THIS 6 IA 6 LB"! 

INPUT N * 

IP N»1S8 THn 8*8 
tp N *3 TNSN 8 «« 

80 TO 873 

PAINT "AN N 0 N 8 BB OP SIDB 8 SHOULD OB AT LSA 3 T TNBBSII" 
OO'TO 8*0 

POINT "THAT MANY AIMS IS OALIO# OUT NOT 886888*87 PI 
POINT "8600 APPAOXI NATION. USB 18000 AS TUB HAAINON 

ON TO 0*0 

PAINT 

LST NalNTCN+.Sl 

09 SUB 180 
PAINT 

PAINT "NONLO YOU LIMB TO TAY AN 0 THB 8 NUNBS 8 OP SI 88 S"! 
POINT " ( 1 -TBS# 0 - 801 "! 

INPUT 01 

IP 01*0 THn 8*0 

Paint "osolo you like to toy ANunm aaoius <i-tss# o-no>*i 

INPUT 08 
PAINT 

PAINT »••***" 

PAINT * 

ip* 08*o ran tao 



t 

i 

I 





DISCIPLINE MATHEMATICS 9, 10,11,12, 15 
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SUBJECT PLOTTING A GRAPH 
PROGRAM NAME PLOTTR 



DESCRIPTION : 

This program plots the graph of any function (analytically 
defined) which the operator inputs into the program. 



OBJECTIVES : 

A. To check a student* s plotting procedures. 

B. To obtain a quick plot of an involved function. 




I 



4 



PRELIMINARY PREPARATION: 

A. Student - Knowledge of coordinates, and plotting procedures. 

B. Materials - graph paper for plotting 



DISCUSSION: 

The operator inputs any analytic function, along with the lower 
and the upper limits for x and the interval to appear on the x-axis. 

The type -out positions x-values on the vertical axis, and 
y-values on the horizontal axis. 

The points typed out may be connected by a smooth curve, and 
the graph may be rotated 90 w to give the usual positioning of a function 
of x. 

It should be noted that because the carriage spacing is discrete, 
many smooth curves may appear slightly jagged. 
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Mathematics 

PLOTTR 



In the third sample run, a plot is made of a rather complex 
transcendental function. It is worth mentioning that this plot is 
obtained as easily, using this program as is that of the function 



Y-X. 




The teacher should notice also, that, in this third sample 
run, we have found two of the roots of the function 
Y=XiL0G(2*(SIN(X)) 2 )-1.5xC0S(X) 

(at X=1 and X=2.98). This program may be used for finding the roots 
of such difficult funcions. 
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Math 

PLOTTR 



O 

, THIS PB08HAM VI U. 08APH A FUNCTION OF X BET VEEN ANY LIMITS 

(A AMDS) YOU CHOOSE# VITHAN IMTEBOAL OF YOOH CHOICE (!>' * 
BETWEEN SUCCESSIVE VALUES OF Xi IF YOU TYPE THE FOLLOVIN81 
1 00 TO 000 

000 DBF FMYCr>«...(YOUB FUNCTION OF XJ... 

, 030 LET A«...<YOUH SNALLEO LIMIT OF X)... 

040 LET B*...tYOUB LABOEB LIMIT OF X>;.. 

050 LET 1«...<Y0UB X-lNCBEMftNT)... 

BUN 



HEADY 



I 00 TO 000 

000 DBF FNY(X>«SINCX> 

030 LET A«0 * - - 

040 LET B-7 

090 LET I».S 

RUN 



X 

• 

V 

A 




L 

U 

E 

S 



0 

•5 

I 



1.5 
0 

0*5 

3 

3.5 

4 

4.5 

5 

5*5 

• 

5.5 

7 



-3 

I 



Y-VALUES - - - - 
1.5 0 

I — J. 



1.5 




dll THE SIX I *S ON THE H0B1X0NTAL Y-AXIS HEPBBSENTt 

«• ;-» ; o*; 1 » f 



HEADY 



ooo nr fny(x>«x 

030 LET A»-t * ' 
MO LIT MAO 
•00 LET !«1 
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PLOTTR 



X 




amt mi ixx x*i <m ins uMittmtuL y-axis amiss* rt 
•i # i # s # • # 7 # a‘ 



♦ 



i 
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PLOTTR 



c 



1 GO TO 220 

220 DEF FNY<X)-X+L0G<2*<SIN(X>> »2>-l .5*C0S<X/2> 

230 LET A«0 #5 

240 LET B«3 • 1 

250 LET 1=0 • 1 

RUN 

X 




A 



V 

A 

L 

U 

E 

S 



.5 
• 6 

• 7 

• 6 
.9 
1 

1.1 

1.2 

1.3 

1.4 

1.5 

1 .6 

1.7 

1.8 

1.9 
2 

2.1 

2.2 

2.3 

2.4 

2.5 

2.6 

2.7 

2.8 

2.9 
3 

3.1 



- - Y- VALUES - 

3 -1.5 

1 1 1 




* 



* 



* 



* 



* 



NOTE! THE SIX I'S ON THE HORIZONTAL Y-AXIS REPRESENT! 

-3 • -2 ,-l * 0 # 1 * 2 
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PLOTTR 



HEADY 

1 GO TO 2 SO 

220 DEF FNY<X)«L0G< CSINCX) ) t2) 

230 LET A= 1 

2 AO LET B=*3 

250 LET 1=0.1 

HUN 



X 



V 

A 

L 

U 

E 

S 



1 

1.1 
1 .2 
1 • 3 

1 .A 
1 .5 
1 *6 

1.7 

1 .6 

1.9 

2 

2.1 

2.2 

2.3 

2.4 

2.5 

2.6 

2.7 

2.6 

2.9 
3 



Y-VALUES - - - - 

5 *3.5 "2 "*.5 

I — 1 + 1 1 --I + 1 

★ I 
★ I 
★ I 
*1 



★ 1 
★ I 
★ I 
★ I 



★ I 
* I 

★ I 

★ I 

★ I 

★ I 

★ I 

* 1 
* 1 



NOTES THE SIX 1 V S ON THE HORIZONTAL Y-AXIS REPRESENTS 
-5 * -4 *-3 #-2 *-l # 0 



READY 
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PLOTTR 



V 



o 



tiO RdM QUENTIN *»• 0* CONNOR# COMMACK H. 5. NORTH# REVISED UULY#S»6» 

119 RBS3 REVISED BY C*L0S1K 8-7-70 

116 MBS A#B ill ARE SELF-EXPLANATORY 

117 REM AUTOMATIC SCALIN0 AMD A FLOAT I N3 AXIS ABE USED* 

IMPRINT” THIS PRO SRAM WILL OBAPH A FUNCTION OP X BBTVBEM ANY LIMITS** 

190PRINT"(A AND B> YOU CMOOSB# WITH AM INTERVAL OP YOUR CH01CB <1>* 

iaop as nt"bet vebn successive values of x; if you type the follovznoi** 



1 SO TO boo** 

880 DBF PMY(X>a.**<Y0UR FUNCTION OF X>.*.** 
830 LET Aa***CYOUR SMALLER LIMIT OF XI..." 
RAO LET B«***(YOUR LAROBR LIMIT OF X)i,»" 
RSO LET 1-***<Y0UR X-lNCRXMtNT> • • •" 

RUM" 



ISO PRINT* 

160 PRINT* 

170 PRINT" 

ISO PRINT" 

190 PRINT" 

000 PRINT” 

810 STOP 

800 DSF FNY(X>aX 
£30 LET A»-I ' 

840 LET 3-9 

008 IF A«B THEN 890 

844 PRINT "YOUR 'A* MUST BE LESS THAN YOUR *B 

846 STOP 

890 LET 1*1 

860 LET L»FMYCA> 

870 LET U-FMYCA) 

800 FOR XdA TO 0 STEP I 
890 LET YbPNYCX) 

300 IF Y-L«0 THEM 380 

31O0OTO 330 

380 6OSUB30O 

330 IP Y-U>0 THEN 390 

340 SO TO 360 

390 esosua 400 

360 NEXT X 
370 SO TO 480 
390 LET LaY 
390 RETURN 
400 LET U*Y 
410 RETURN 

480 IP IMTCU>-U*0 THEN 490 

430 LET UI»1BT<U>-»1 

440 SO TO AM 

490 LET UI"U 

4M LET L!"1NT(L> 

470 LET D-U1-LI ' 

4B0 IF INT(D/9>-D/9aO THEN 970 
490 FOR K*1 TOR 
900 LET LlaLl-1 
910 LET D«01-L1 

980 IF IHT(D/9>-D/9aO THEN 970 
930 L£r~Ul»U!*I 
9A0 LET ?«Ol-LI 

990 IF INT<D/9)-D/9aO THEN 970 
960 ME?*.? X * * 

970 LET EaD/9 
9*0 PRINT "X" 

990 PRINT "•" 

630 PRINT "V" 

610 PRINT "A" 

980 PRINT "L“ 

630 PRINT "0" 

940 PRINT "E" 

690 PRINT "S' 

660PR1MT" "LI#* 

670PRIMT" I — 



m m m • Y-VALUSS • - - 
"JL1*E«1*9#" "JLM-E**#" "IL1«S44«B 

I — — -i-I»... — — -I"| 
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PIOTTR 



*71 P&EMT »«.— «o».c.o£«> 

*80 SP'Ut>© THSM3 1080 

6M '1ST Ooitr?<t«*LS J*tiO/BJ»oS> 

700 DBP M©>«¥>oBtm«V-U»*SS0/a>*»5> 

710P0B XoA W S' STEP E 

76Q PBS ttVle 
739 LET 

“WO 8P TkcO TUB© 039 

7*0 PBSS3T TAlHlS«<PW»m9S e,, a , »BTAS<at>SS>l*I“ 

8*0 8© TO 1000 ' 

830 IP V»0 TUBS 910 
8*0 PBS NT ?A0t«*lS>l K, O® 

900 80 TO SOOO 

910 PRINT T*8«l5*e>l 00 E < “ITaB€aS*PMP<¥>>l“*“ 

EOO© MgST X - 

1010 00 TO 1109 

1000 FOB X®A' TO B ST8P S 

1030 paisira:* 

10*0 UK V® PW<X> 

1030 PRIST TAB< IEJTC <Y°E.l >«< I0/B>0o3>«14)| **«" 
1090 NKXT X 
1100 PRINT 

IS SO PB13T “N0T6C TUB SIX 8 "S OB TUB HORIZONTAL 
1180 PRINT UJ M * 0, JU<>BJ'»4> ,0 JU«>8'&aj‘»«« , J|.l+B*3J‘V 
19*0 BMP - .. .. 
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DISCIPLINE MATHEMATICS, GEN. 9th YR 



SUBJECT PRIME FACTOR 

PROGRAM NAME PRIFA 



DESCRIPTION : 

This program finds the prime factors of any given integer, or 
prints 11 is prime" if the integer has no proper divisors. 



OBJECTIVES: 



A. To display to the studsnt the prime factors of a large number of 
integers, giving the students a chance to discover relationships. 

B. To use the motivation of the computer to teach the method that the 
program uses to find the prime factors. 



PRELIMINARY PREPARATION: 



A. Student - Should understand the meaning of composite, prime, 
factor 7 and prime factor. 

B. Materials - If you desire to* use this program with a group, a means 
by which the output can be displayed is necessary. 



DISCUSSION : 

The speed with which the computer operates in this program 
gives the student an opportunity to make generalizations based upon many 
more observations then heretofore was possible The question can be 
asked: " By what method does the computer find the prime factor?" A 
flow chart would be highly useful at this point, not only in developing the 
method for finding a prime factor, but also in understanding the mathematical 
logic behind this method. 
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?HXFA 



THIS PROGRAM WILL CilVK, YOU THE PRIME FACTORS OF ANY 
WHOLE NUMBER. IF YOU WISH TO STOP THE PhOGRAM* ENTER A 
ZERO FOR THE NUMBER. 

WHAT IS THE NUMBER ? 10 S 

105 35 7 

WHAT IS THE NUMBER 7 72 

72 2 2 2 3 3 

WHAT IS THE NUMBER ? 89 

89 IS PRIME 

WHAT IS THE NUMBER ? 47 
47 IS PRIME 

WHAT IS THE NUMBER ? 155 
155 5 31 

WHAT IS THE NUMBER 7 362 
362 2 lbl . 

WiAT IS THE NUMBER ? 0 

READY 




9 
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Mathematics 

PRIFA 





100 HEM w. TEPPER WYANOANCH H • 5 • 

105 HEM REVISED BY C.LOSIK b-10-70 

106 HEM M 15 THE NUMBER* A( 1 ) AHE ITS FACTORS 
110 HEM ADAPTATION OF TWO PHOGHAMS 

120 HEM THIS PHOGRAM FINDS THE PRIME FACTOHS OF ANY GIVF.N INTEGEH 
130 HEM AND PRINTS PRIME IF IT HAS NO PROPER DIVISORS 
140 DIM A( 100) 

150 LET C=0 

160 PRINT "THIS PROGRAM WILL GIVE YOU THE PRIME FACTORS OF ANY" 

170 PRINT "WHOLE NUMBER. IF YOU WISH TO STOP THE PROGRAM* ENTER A" 
172 PRINT "EERO FOR THE NUMBER." 

174 PRINT 

ISO i-RINT "WHAT IS THE NUMBER "i 
190 LET X=0 
200 INPUT M 

205 IF ABSCM-INTCM+.5) X.OOOl THEN 210 

206 PRINT "WHOLE NUMBERS ONLY* PLEASE." 

207 GO TO lbO 
210 PRINT 

215 IF M<=0 THEN 470 
220 PRINT M* 

230 LET 1*1 

240 LET 1*1+1 

245 IF I >M THEN 310 

250 IF M/l<>INTCM/l) THEN 240 

260 LET X=X+1 

270 LET A(X)=I 

2b0 LET M*M/I 

300 GO TO 250 

310 IF X*1 THEN 360 

320 FOR L=1 TO X 

330 PRINT ACL)* 

340 NEXT L 

350 GO TO 370 

360 PRINT "IS PRIME" 

370 PRINT 

380 PRINT 

385 GO TO 180 

400 INPUT B 

410 IF B*1 THEN 180 

420 IF B=0 THEN 470 

430 PRINT " TYPE 1 OR 0 AS INSTRUCTED" 

440 LET C*C + 1 
460 GO TO 400 
470 END 
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DISCIPLIN E MATHEMATICS 12, 13 



SUBJEC T ANALYTIC GEOMETRY 

PROGRA M QUADRT 



DESCRIPTION : 

This program determines the nature of the graph of Ax 2 + Bxy + 
Cy 2 + Dx + Ey + F =0, after the operator inputs the six constants (A, 
B, C, D, E, F). Limiting cases, such as a point or a line, are separ- 
ated from the general cases so that the computer type-out gives the 
exact nature of the graph. 



OBJECTIVE : 

To permit exploration of the properties of the sepond-degree 
equation. 



PRELIMINARY PREPARATION : 

A. Student - should have a reasonable knowledge of conic sections, 
second - degree equations in two unknowns, invariant functions 
of the coefficients under transformations, etc. 

B. Materials - An overhead projector along with a transparency of the 
flow chart would be desirable, 



DISCUSSION : 

Before running the program, the teacher should discuss the 
general form of a second-degree equation ip two variables, the functions 
of the coefficients used in the program, and the implications of the 
flow chart. 

The discussion of the flow chart for this program enhances the 
understanding of the problem. 

The type-out serves as a check on students * efforts in ident- 
ifying second-degree equations. 
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THIS PROGRAM DETERMINES THE NATURE OP THE GRAPH OPI 
‘ A*X»fi*B*X*y*C*Vt#*D*X+I*Y*P»0 
ENTER YOUR CONSTANTS IN THE ORDER LISTED ABOVE* 

7 5#8#5#0#0#0 

THE ORAPH OP YOUR EQUATION IS A SINGLE POINT* 

ANOTHER RUN < l-YES# 0«N0) I 1 I 

ENTER YOUR CONSTANTS IN THE ORDER LISTED ABOVE* 

7 S#6«5#0*0#36 

THERE IS NO REAL LOCUS POR YOUR EOUATION. 

ANOTHER RUN C 1*YES« 0«N0> » 7 1 

ENTER YOUR CONSTANTS INTTHE ORDER LISTED ABOVE* 

? 0#5»0#0#0»9 

THE GRAPH /P YOUR EQUATION IS A HYPERBOLA* 

ANOTHER RUN ( l -YES# O-NO) 17 0 

READY 
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too 

103 

105 

110 

iao 

130 

140 

150 

160 

170 

160 

190 

aoo 

aio 

880 

830 

840 

850 

860 

870 

880 

890 

300 

310 

380 

330 

340 

350 

360 

370 

380 

390 

400 

410 

480 

430 

440 

450 

460 

410 

480 

490 

900 

510 

980 

530 

540 

sso 

560 

570 

575 

580 

590 

600 



REM QUENTIN 3 •O'CONNOR.' COMMACK H.S. NORTH, JULY 16* 1969 
REM REVISED BY C.L0S1K 8-7-70 
REM A,B,C,D,I,F ARE AS IN EQUATION 

PRINT N THIS PR08RAM DETERMINES THE NATURE OP THE 8RAPH 0P»” 
PRINT N A*X»84-B*X*Y+C*Yt8«>D*X*B*Y+P»0" 

PRINT - ENTER YOUR CONSTANTS IN THE ORDER LISTED ABOVE.” 

PRINT ” ” 

INPUT A»B»C»D»E»P 

IP A*A«-B*S*C*C«-D*D«-E*E*P*P>0 THEN 810 

PRINT” VI TH ALL YOUR CONSTANTS EQUAL TO ZERO# ANY VALUES OP X” 
PRINT”AND Y WILL SATISPY YOUR EQUATION* IN OTHER VORDSi YOUR” 
PRINT” GRAPH IS A COMPLETE PLANE*” * 

GO TO 550 

IP A*A*B*B*C*C+D*D+E*E*0 THEN 500 
IP A*A*B*B4>C*C>0 THEN 840 
GO TO 400 
LET I»A*C 



LET K»4*A*C“B*B 



LET J»4*A*C*4*C*P44*A*P-E*E-D*D-B*B 
LET Pa4*A*C*P*B*D*E-A*E*E*C*D*D-P*B*B 
IP P-0 THEN 360 
IP K-0 THEN 540 
IP K«0 THEN 580 
IP I*P>0 THEN 500 



IP A«Xi THEN 340 
IP B»0 THEN 480 

PRINT "THE GRAPH OP YOUR EQUATION 

GO TO 550 

IP KH> THEN 460 

IP K<0 THEN 440 

IP «M0 THEN 480 

IP J>0 THEN 500 

PRINT "THE GRAPH OP YOUR EQUATION 
GO TO 550 

PRINT "THE GRAPH OP YOUR EQUATION 
GO TO 550 

PRINT "THE GRAPH OP YOUR EQUATION 
GOTO 550 

PRINT "THE GRAPH OP YOUR EQUATION 
GOTO SSO 

PRINT "THE GRAPH OP YOUR EQUATION 
GOTO 550 

PRINT "THERE IS NO REAL LOCUS POR 
GO TO 550 

PRINT "THE GRAPH OP YOUR EQUATION 
GOTO 550 

PRINT "THE GRAPH OP YOUR EQUATION 
PRINT 

PRINT "ANOTHER RUM Cl-YES* 0-M0> t 

INPUT A 

PRINT 

IP‘A-1 THEN 130 
IP A«»0 THEN' 560 
END 



IS AM ELLIPSE*" 



IS A SINGLE STRAIGHT LIRE*" 
CONSISTS OP 8 PARALLEL LINES*" 
CONSISTS OP 8 INTERSECTING LINES*" 
IS A SINGLE POINT*" 

IS A CIRCLE." 

YOUR EQUATION*^* 

IS A HYPERBOLA." 

IS A PARABOLA." 

"1 
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DISCIPLINE MATHEMATICS 9th YEAR 



SUBJECT PROPORTIONS 
PROGRAM NAME RATIO 



DESCRIPTION ? 

This program solves a proportion of the type A/B = C/D. A, B, 
C, or D can be unknown. 

OBJECTIVES: 

A. To teach the student(s) the relationships in a proportion. 

B. To aid in teaching the solution of proportions. 

PRELIMINARY PREPARATION: 

A. Student - no particular preparation necessary 

B. Materials - see discussion 



DISCUSSION: 

The student is given the opportunity to see any number of solutions 
to proportions. The program then asks a series of questions designed 
to allow the student to discover that in a proportion, the product of the means 
eqvals the product of the extremes. The program can be used either with 
individual students or with an entire class depending upon the availability of 
equipment to display the output. The running time varies, depending upon 
the number of proportions you wish to solve. In 10 to 15 minutes, the program 
can be run with about 100 proportion problems. Included in this time is a 
built-in variable pause for observation of the tabulated results. 

Another value of using this program is that the teacher can easily handle 
numbers in proportions that heretofore were too difficult. 



Math 

RATIO 



■nils PROORAM SOLVES FOR THE UNKNOWN IN THE PROPORTION 
A/B AS C/D. USE A ZERO AS A DUMMY VALUE BOR THE UNKNOWN. 



NOW MANY PROPORTIONS DO YOU- WISH TO SOLVET 4 
WAT ARE THE VALUES FOR A.B.C.DT 3.5.5. 9 
YOU FOROOT TO INPUT A ZERO TOR YOUR 
UNKNOWN* TRY ASAIN.T 3.4.4.0 

3 / 4 AS 6 / S 

WAT ARE THE VALUES FOR A.B.C.DT 1.10.0. SO 

1/ 10 AS. 5/90 

WAT ARE THE VALUES FOR A.B.C.DT 35.0.1. ft 

34/78 AS 1/8 

WHAT ARE THE VALUES FOR A.B.C.DT 0.45*3.5 

• 7 / 45 AS 3 / 5 



TAKE A 0000 LOOK AT THE PROPORTIONS* THE TWO MIDDLE 
POSITION NUMBERS ARE CALLED THE' ’MEANS* i THE TWO 
END POSITION NUMBERS ARE CALLED THE ’EXTREMES* • 

LOOK AT THE ’MEANS’ AMD THE ’EXTREMES* * SEE IP 
YOU CAN FIND SOME KIND OF RELATIONSHIP BETWEEN THEM. 

WEN YOU THINK YOU RAVE FOUND A RELATIONSHIP BETWEEN 
WE ’KEANS’ AND THE * EXTREMES*. TYPE I AND HIT THE RETURN KEY* 
7 1 '* 



DID YOU SEE THAT IF YOU MULTIPLY THE 'MEANS* 

AND MULTIPLY THE 'EXTREMES*. * THE PRODUCTS ABE EfiMALt 

IN THE LAST PROPORTION 45 X 3 EOUALS 87 X 5 

CHECK THE OTHERS* TOO. WHEN YOU ARE READY TO CONTINUE* 

TYPE I AMD HIT THE RETURN ‘KEY* 

7 1 



IP YOU WISH TO USE THIS PRO SRAM A WAIN TYPE I. IF NOT TYPE 0 
TO* 



READY 
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100 am V* TEPPBR VYAMDANCM H.S. - MATHEMATICS 

105 am fczvisxo by c*losih e- 5-70 

105 am A/B • C/0* TOTALLY OBVIOUS. ALSO USES BOSUB TO SIMULATE PAUSE 
110 am THIS PRO OBAN SOLVES POR'THE UNKNOVN 1M THE PROPORTION" 

180 BSK OP' THE TYPE A/B AS C/D “ 

130 PB1NT "THIS PRO ORAN SOLVES POB THE UNKMOVN IN THE PROPORTION" 

140 PRINT "A/B AS C/D* USE A ZERO AS A DUMMY VALUE POR THE UNEMOSN." 

150 PRINT 

160 PRINT "HOV MANY PROPORTIONS DO YOU VI SH TO SOLVE"! 

170 INPUT N 
160 POR X«1 TO N 

190 PRINT "WAT ARE THE VALUES POR A*B«C#D*'! 

BOO ItfUT A*8»C»D 
810 IP A«0 THEN 870 
880 IP B«0 THEN 890 
830 IP C-0 THEN 310 
840 IP D*0 TH EN 330 

£50 print "you poroot to input a zero por your" 

855 PRINT "UNKMOVN* TRY A BAIN*"! 

860 BO TO 800 
870 LET A-B*C/D 
880 00 TO 340 
890 LET B-A«D/C 
300 00 TO 340 
310 LET C-A9D/B 
380 00 TO 340 
330 LET D«B*C/A 

340PRINT" "!A"/*8" AS "C"/"D 

345 NEXT K 
350 PRINT 
360 PRINT 

370 PRINT "TAKE A 6000 LOOK AT THE PROPORTIONS* THE TVO MIDOLE" 

380 PRINT "POSITION NUMBERS ARE CALLED THE ’REAMS*; THE TVO" 

390 PRINT "END POSITION NUMBERS ARE CALLED THE ’EXTREMES* •" ' 

395 PRINT 

400 PRINT "LOOK AT THE 'MEANS* AND THE 'EXTREMES' - SEE IP" 

410 PRINT "YOU CAN PlNDSOMK RIND OP RELATIONSHIP BET VEEN THEM#" 

480 PRINT "WEN YOU THINK YOU HAVE POUND A RELATIONSHIP BEYVEESf" 

430 PRINT "THE 'MEANS* AND THE 'EXTREMES** "! 

450 BO ' SUB 610 

460 PRINT "DID YOU SEE THAT IP YOU MULTIPLY THE 'MEANS'" 

410 PRINT "AND MULTIPLY THE 'EXTREMES'* THE PRODUCTS ARE EQUAL?" 

475 PRINT 

480 PRINT "IN THE LAST PROPORTION "B"X"C"E8UALS" A"X"D 

490 PRINT "CHECK THE OTHERS* TOO* WEN YOU ARE READY TO CONTINUE*" 

SIO 80 SUB 610 
540 PRINT 

550 PRINT "IP YOU VI SH TO USE THIS PROQRAM AQAIN TYPE 1* IP NOT TYPE O" 
560 IWUT X' 

570 IP X-l THEN 800 
580 IP X"0 THEN 440 

590 PRINT "TYPE I OR 0 AS DIRECTED." 

600 BO TO 560 

610 PRINT "TYPE 1 AND HIT THE RETURN KEY*" 

680 INPUT X 

683 IP X<»i THEN 680 

685 PRINT 

687 PRINT 

630 PRINT 

635 RETURN 

640 END 
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MATHEMATICS 



SUBJECT QUADRATIC EQUATIONS 
PROGRAM NAME ROOTS 2 



DESCRIPTION : 

This program describes the nature of the roots of a quadratic 
equation, and finds the roots whether real or complex. 



OBJECTIVES : 

A. To familiarize the student with quadratic function. 

B. To review and drill exercise. . . to study the nature of roots. 

C. To emphasize that roots of f(x) = 0 are the same as x-intercepts of 
f(x) = y. 

D. To impress the student with geometric interpretation(s) of the 
nature of roots. 

E. To provide M lead -in* * material for the introduction of further study 
of the real number line, the real cartesian plane, complex numbers, 
quadratic inequalities, etc. 



PRELIMINARY PREPARATIO N: 

A. Student - The teacher can use the program to introduce the students 
to tbe quadratic formula, to conclude discussion of the quadratic 
formula. . . or both. 

B. Materials - none 



DISCUSSION : 

The program U3es the 1 discriminant 1 9 to determine the nature 
of the roots of the quadratic equation. Regardless of the nature of the 
roots, the student is asked to graph y = F(x), and to compare his graph 
with the kind of roots he finds for a specific F(x) = 0. He should be 
impressed with the picture; and he should understand (ultimately) the 
reasonableness and validity of the analytic methods presented in class. 



\ 
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THIS PROGRAM HANDLES ALL POSSIBLE CASES OP SOLUTION OP THE EQUATION # 

A • X * S ♦ B * X ♦ C • 0 

TYPE IN YOUR VALUES POR A* B* AND C I ? 1*8*3 

DISCRIMINANT IS LESS TRAN EERO* SO ROOTS ARE IMAGINARY* 

THEY ARE OP T8S PORN « P*I*G # P-I*Q * WHERE' I 
P »-l G " 1 *414814' 

*•» 

DO YOU BANT ANOTHER RUN i 0 • NO * 1 ■ YES ) I ? I 

TYPE IN YOUR VALUES PCR A* B* AND C I 7 1*7*3 

DISCRIMINANT IS GREATER THAN EERO* SO ROOTS ARE REAL. 

ROOTS ARE XI AMD X8 • 

XI ■••498618? X8 ••6.941381 

*** 

DO YOU MANT ANOTHER RUN ( 0 • NO « 1 ■ YES ) 8 7 1 
TYPE IN YOUR VALUES POR A* B* AND C S 7 1*6*0 
DISCRIMINANT IS EQUAL TO ZERO* SO ROOTS ARK EQUAL* X »*3 

*** 

DO YOU VAMT ANOTHER RUM ( 0 ■ MO * 1 ■ YES >171 

TYPE IN YOUa VALUES POR A* 9 * AND C 1 7 8*6*6 

DISCRIMINANT IS GREATER THAN ZERO* SO ROOTS ARE REAL. 

ROOTS ARE XI AND X8 • 

XA •-! * X8 »-3 

DO YOU BANT ANOTHER RUN < 0 • NO * I ■ YES ) < 7 0 
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100 REM THE ULTIMATE QUADRATIC SOLVER* UNTIL THE NEXT VERSION 
HO REN CHARLES L0S1K* PIB> 7/81/70* BASIC 

120 PRINT ‘‘THIS PROGRAM HANDLES ALL POSSIBLE CASES OP SOLUTION 0F"i 
IS5 PRINT " THE EQUATION 8" 

ISO PRINT 

140 PRINT " A * X t 2 ♦ B * X ♦ C ■ C" 

150 PRINT 

ISO PRINT "TIPS IN YOUR VALUES FOR A* B* AMD C 8 **l 
165 REN INPUT VALUES FOR A*B*C 

170 INPUT" A*8*C 

171 PRINT 

175 REM FOR ALL CASES* CHECK A«0. IF SO* THEN LINEARITY 

100 IF A®0 THEN 0OB 

185 REM D IS THE DISCRIMINANT 

100 LET D*B$S«4*A*C 

195 LET Z<»£«A 

BOO IF D*0 THEN 710 

810 IF D>0 THET3 610 

300 REM »<0< IMAGINARY RESULTS 

310 PRINT “DISCRIMINANT IS LESS THAN ZERO* SO ROOTS /HE IMAGINARY." 

320 PRl?JT “TREY ARE OF THE FORM 8"P*2*Q * P-I*Q * Vk , E‘ 8" 

330 PRINT "P •"•B/Z*"Q •*5GR<ABS<D> J/Z 

340 60' TO 900 

600 REM D»0* SO REAL ROOTS 

610 PRINT “DISCRIMINANT IS GREATER THAN ZERO* SO ROOTS ARE REAL." 

600 PRINT "ROOTS AftE XI AND X8 •“ 

630 PRINT "XI o"<~B+SQRCD> >/Z*"X8 •”(-B-SQR<D>>/Z 
640 GO' TO 900 

700 REN EQUAL ROOTS «D»0> 

710 PRINT "DISCRIMINANT IS EQUAL TO ZERO* SO ROOTS ARE EQUAL. X • r *-!B/Z 
780 GOTO 900 

BOO REM AmO* SO Xe-C/Bt UNLESS B*0 

GOB IF B<>0 THEN SIO 

an 3 IF C*0 THEN SO 7 

•04 PRINT "MEANINGLESS STATEMENT." 

806 Q0‘ TO 900 

807 PRINT “OK* ZERO • ZERO." 

608 GO' TO 900 

GIO PRINT "THE EQUATION IS LINEAR. X >“-0/0 

900 PRINT 

901 PRINT TA9< 30 >!“•«*" 

90S PRINT 

910 PRINT 

900 PRINT "DO YOU BANT ANOTHER RUN C 0 - NO * 1 • W ) < "1 
930 INPUT £ 

940 IF Z»1 THEN 150 
950 IF Z<*0 THEN ‘9*0 
999 END 
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DISCIPLINE MATHEMATICS - JR. HIGH 




SUB J EC T INTERSECTION AND UNION 
OF SETS 



PROGRAM NAME SETS 



DESCRIPTION : 

This program finds the intersection and union of any two 
numerical sets. 

OBJECTIVES : 

A. To motivate students to find the union and intersection of any two 
sets. 

B. To learn the logic involved in finding the union and intersection. 



PRELIMINARY PR E PARATION: 

A. Student - no special preparation necessary. 

B. Materials - see discussion 



DISCUSSION: 



This program may be used with individuals, small groups, or 
class -size groups. The elements of the two sets are entered as per 
instructions. Incidently, one or both of the sets may be empty. The 
computer then types back the elements in the union and intersection. The 
speed with which the computer operates enables the students to see a 
great many examples, giving them the opportunity to make discoveries about 
what is the union and what is an intersection of two sets. The teacher may 
use the flow chart that follows to explain the logic behind finding the union 
and intersection. 

It is suggested that when used with large groups, a supplementary 
device be used to display output. 
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THIS PROGRAM FINDS THE UNION AND INTERSECTION OF ANY TWO 
NUMERICAL SETS • 



HOW MANY ELEMENTS IN THE FIRST SET? 5 

THESE ARE - (HIT ThE RETURN KEY AFTER ENTERING EACH ELEMENT). 
? i 
? 2 
? 3 
? 4 
? 5 



-.V> 



£ 



HOW MANY ELEMENTS IN THE SECOND SET? 5 



THESE ARES 
? 2 
? 4 
? 6 
? 8 
? 10 



THE INTERSECTION CONTAINS 2 4 

THE UNION CONTAINS 2 4 6 8 10 1 3 5 

DO YOU WANT ANOTHER RUN C1=YE5* 0=N0) : ? 1 

HOW MANY ELEMENTS IN THE FIRST SET? B 

THESE ARE 
? I 
? 2 
? 3 
? 4 
? 6 
? b 
? 10 
? 12 

HOW MANY ELEMENTS IN THE SECOND SET? 10 

THESE ARES 
? 1 
? 2 
? 3 
? 4 
? 5 
? 6 
? 7 
? 8 
? 9 

? 10 * 



- (HIT THE RETURN KEY AFTER ENTERING EACH ELEMENT). 




THE INTERSECTION CONTAINS 1 2 3 4 6 b 10 

THE UNION CONTAINS 1 2 3 4 5 6 7 b 9 10 12 

DO YOU WANT ANOTHER RUN < i»YESa 0*N0) * ? 0 



READY 
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\ 

100KEM V • TEPPER* WYANDANCH HS* 7/29/69 
1C I REM REVISED BY C.LOSIK fa- 10-70 
103 DIM A(30),B<30) 

HO REM UP TO 30 ELEMENTS PER SET ARE ALLOWED( UNLESS DIM IS CHANGED) 
120PRINT"THIS program kinds the union and INTERSECTION OF ANY TWO" 
130PrINT"NUMER1CAL sets." 

X40PRINT 

150PRINT” HOW MANY ELEMENTS IN THE FIRST SET"! 

I6U INPUT N 
163 IF N®0 THEN 230 

166 IF N»INT(N) THEN 170 

167 PRINT "ONLY AN INTEGER NUMBER OF ELEMENTS IS POSSIBLE." 

169 GO TO 140 

170 IF N<=30 THEM lfaO 

173 PRINT "THE MACHINE CANNOT HOLD MORE THAN 30 ELEMENTS." I 
175 PRINT " SEE YOUR TEACHER." 

177 GO TO 690 
lfaO IF N>0 THEN 1B9 

lfa3 PRINT "THERE CANNOT BE A NEGATIVE NUMBER OF ELEMENTS." 

Ifa6 GO TO 1 AO 
1B9 PRINT 

190PHINT"THESE ARE - (HIT THE RETURN KEY AFTER ENTERING EACH ELEMENT)." 
200 FOR K=*1T0N 
210INPUTA<K) 

220NEXT K 
230PRINT 

240 PRINT " HOW MANY ELEMENTS IN THE SECOND SET"! 

250 INPUT J 

IF J*0 THEN 550 
IF J=INT<J) THEN 260 

PRINT "ONLY AN INTEGER NUMBER OF ELEMENTS IS POSSIBLE." 

GO TO 230 
IF J>30 THEN 173 
IF J>0 THEN 279 

PRINT "THERE CANNOT BE A NEGATIVE NUMBER OF ELEMENTS." 

GO TO 230 
PRINT 

PRINT"THESE ARES” 

FOR K1=1T0 J 
INPUT B(Kl) 

NEXt K1 
PRINT 
PRINT 

IF N<=0 TREN 640 

PRINT "THE INTERSECTION CONTAINS "i 
FOR K*i TO N 
FOR L=1 TO J 
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253 
256 
25 7 

259 

260 
270 
273 
276 

279 

280 
290 
300 

310 

311 

312 
315 
320 

* 330 

340 
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350 IF ACK)=BCL>THEN 3tt0 
360 NEXT L 
370 GO TO 400 
330 PRINT A IK>; 

390 LET X=X+1 

400 NEXT K 

410 IF X>OTHEN 430 

420 PRINT" EMPTY SET... .NO ELEMENTS" 

430PRINT 

440 PKINT"THE UNION CONTAINS"; 

450 FOR L* 1 TO J 
460 PRINT BCL>; 

470 NEXT L 

430 FOR K=1 TO N 

490 FOR L=1 TO 0 

500 IF ACK)=BCL)THEN 530 

510 NEXT L 

520 PRINT ACK); 

530 NEXT K 

540 GO TO 690 

550 IF N<=0 THEN 620 

560 PRINT "INTERSECTION IS EMPTY" 

570 PRINT "UNION CONTAINS"; 

530 FOR K--1 TO N 
590 PRINT ACK); 

600 NEXT K 
610 GO TO 690 

620 PRINT "UNION AND INTERSECTION ARE EMPTY" 

630 GO TO 690 

640 PRINT "INTERSECTION IS EMPTY" 

650 PRINT "UNION CONTAINS"; 

660 FOR K=1 TO J 
670 PRINT BCK); 

680 NEXT K 
690 PRINT 
TOO PRINT 

720 PRINT "DO YOU WANT ANOTHER RUN C1=YES» 0=N0) t "; 

730 INPUT N 

740 IF N=1 THEN 140 

750 IF N<>0 THEN 720 

760 END 
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DISCIPLINE 
SUBJEC T SIMULTANEOUS EQUATIONS 
PROGRAM NAME SIMEQN 

* DES CRIPTION : 

This program finds the simultaneous solution set for sets of 
simultaneous linear equations (up to 10x10) 

OBJECTIVES : 

1. To eliminate the tedium of solution of sets of simultaneous 
equations. 

2. To provide a means for checking solutions obtained by other 

means . 



PRELIMINARY PREPARATIONS : 

Presentation of concepts of simultaneous equations and methods 
for finding solutions. 
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miS PkOGHAM SOLVES ANY NUMBEH OF SETS OF SIMULTANEOUS 
EQUATIONS OF UP fO 10 EQUATIONS PEn SET* ENTEK *OUrt SETS 
OF EQUATIONS IN DATA STATEMENTS IN LINES 700-S00* 

PRECEDED BY THE NUMBEH OF EQUATIONS IN EACH SET* 

EaAMPLE: TO SOLVE TrtE SYS1EM 

i*A(l) + 2*AC2) =3 
A*aC1> + 9*XC2) = 10 
ENT EH DATA AS FOLLOWS: 

7uO DATA 2 
7Ui DATA 1*2*3 
702 DATA A*9*1U 
THEN TYPES 
1 GO TO no 
HUN 

THE COMPUTEH WILL PK1NT A MATH1X OF YOUK EQUATIONS* FQLLOWED 
BY THE SOLUTION TO THE EQUATIONS. 



HEADY 



700 DATA 2 

701 DATA 1*2,3 

702 DATA A*9*1U 
1 GO TO 110 
HUN 

12 3 

A 9 10 



XC 1 >= 7 

X< 2 >= -2 



HEADY 

WO DATA 2 

701 DATA 3*2*16 

702 DATA -6* -A* -32 
1 GO TO 110 

HUN 

3 2 16 

-6 -A -32 

NO UNIQUE SOLUTION 
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READ'I' 

700 DATA 3 

701 DATA 3# 2# 5# 10 

702 DATA -1*4#7#-21 

703 DATA 1«1«-1«14 
1 GO TO 110 

HUN 



3 


2 


5 


10 


-1 


4 


7 


-21 


1 


1 


-1 


14 


X< 1 ) = 


7.413044 






X( 2 > = 


2.956522 






A( 3 ) = 


-3.630435 







HEADY 



I 
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10 REMARK D • SOBIN* BKLYN POLY* 11-69 
15 REM REVISED BY C.LOSIK* 9-25-70 

20 PRINT "THIS PROGRAM SOLOES AMY NUMBER OF SETS OF SIMULTANEOUS" 

25 PRINT "EQUATIONS OF UP TO 10 EQUATIONS PER SET. ENTER YOUR SETS" 

30 PHI NT "OF EQUATIONS IN DATA STATEMENTS IN LINES 700-500*" 

35 PRINT "PRECEDED BY THE NUMBEu OF EQUATIONS IN EACH SET." 

AO PRINT "EXAMPLE! TO SOLVE THE SYSTEM" 

45 PRINT " 1*A<1> + 2*AC2) = 3" 

50 PRINT " 4*XC1) + 9*AC2) = 10" 

60 PRINT "ENTER DATA AS FOLLOWS!" 

62 PRINT " 700 DATA 2" 

64 PRINT " 701 DATA 1*2*3" 

66 PRINT " 702 DATA 4*9*10" 

70 PRINT "THEN TYPE!" 

72 PRINT" 1 GO TO 110" 

74 PRINT " RUN" 

50 PRINT "THE COMPUTER WILL PRINT A MATRIX OF YOUR EQUATIONS* FOLLOWED" 
55 PRINT "BY THE SOLUTION TO THE EQUATIONS."' 

90 STOP 

100 DIM EC 10*11)* AC 10) 

110 HEAD N 

120 IF N=0 THEN 999 

130 FOR 1=1 TO N 

140 FOR K=1 TO N+l 

150 READ ECi*K) 

155 PRINT E ( I * K ) * 

160 NEAT K 

165 PRINT " " 

170 NEAT I 

155 REMARK EVALUATE MATRIX 

190 FOR J=1 TO N-l 

200 IF ECJ*J)=0 THEN 560 

210 FOR I=J+1 TO N 

220 LET U=E< I*J)/ECJ*J) 

830 FOR K=J TO N+l 

240 LET ECI*K)=ECI*K)-ECJ*K)*0 

250 NEXT K 

260 NEXT I 

270 NEXT J 

340 REMARK SOLVE FOR XCN) 

350 IF ECN*N)=0 THEN 520 
360 LET I=N+ 1 

370 LET XCN)=ECN*I)/ECN*N) 

FOR J=1 TO N-l 
LET S=0 

FOR K=1 TO J 

LET S=S+EC N- J* I -K) *AC I -K) 
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420 NEXT K 

430 LET XCN-J>=CECN- J, I > -S> /E< N- J#N- J) 

440 NEXT J 

450 REMARK PRINT VALUES 

455 PRINT 

460 FOR J=i TO N 

470 PRINT 

460 NEXT J 

5U0 GO TO 530 

520 PRINT 

525 PRINT "NO UNIOUE SOLUTION" 

530 PRINT 

535 PRINT 

540 PRINT 

550 GOTO 110 

560 FOR T= J+i TO N 

570 IF ECT>JX>0 THEN 600 

560 NEXT T 

5V0 GOTO 520 

600 FOR C=J TO N+l 
610 LET A=E(J*C) 

620 LET EC J,C>=E(T,C> 

630 LET ECT*C)=A 
640 NEXT C 
650 GOTO 210 

601 DATA 0 

yyy end 
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DISCIPLINE CALCULUS - GRADE 1 3 



SUBJECT TANGENT SLOPE FOR 
ANY FUNCTION 
PROGRAM NAME SLOPE , 



DESCRIPTIO N: 

This program considers a function which is differentiable at x~a f 
and at all points in the interval [a, a+ 1] . The value of the derivative at 
x = a is approximated through secant slopes. 



OBJECTIVES: 

A. The preliminary discussion of the method whereby the machine solves 
the problem enhances the students 1 comprehension of the techniques. 
These techniques are then used in developing the analytic method for 
finding the slope of the tangent line. 

B. The type -out of successive approximations to the ta.ngent slope clarifies 
and dramatizes the nature of the limiting processes, 

C. Time-saving factor through the elimination of lengthy computations. 

PRELIMINARY PREPARATION: 



Materials 



The diagram below may be shown to the students on a blackboard, 
or an overhead projector, to explain the computations geometrically. 
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DISCUSSION: 



The use of the computer and the attendant discussion of the program 
dramatically introduces the idea of differentiation. 
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SECANT SLOPE OF A CURVE » THE DERIVATIVE 

THIS PROGRAM CONSIDERS A FUNCTION OF X CY-F(X>> WHICH IS 
DIFFERENTIABLE AT‘X»A AND AT ALL POINTS IN THE' INTERVAL 
(A.A+1 >. THE VALUE OF THE DERIVATIVE AT X*»A IS* 
APPROXIMATED THROUGH SECANT SLOPES* 

AFTER THE PROGRAM STOPS* TYPE IN THE FOLLOWING* 

<END EACH LINE* INCLUDING 'RUN** WITH A 'CARRIAGE RETURN') 

I GO TO 300 

300 DEF FNY<X)«>....CYOUR FUNCTION OF X).... 

RUN 

FOR EXAMPLE* TO FIND THE SLOPE OF THE EQUATION Y-X»3 
YOU WOULD TYPE ASFOLLOWSt 

I GO TO 300 

300 DEF PMY(X>»Xt3 

RUN 

YOU MIGHT TRY THAT AS YOUR FIRST BUN* 

FOR SUBSEQUENT RUNS* YOU NEED ONLY CHANGE LINS 300 FOR 
A HEW FUNCTION* FOLLOWED BY 'RUN'. 



READY 



I GO TO 300 

300 DEF FNY(X>-Xt3 

RUN 

FOR WHAT VALUE OF A IS THE SLOPE TO BE EVALUATED? S 

'CHANGE IN X' IS THE DISTANCE FROM *A'» AND 'CHANGE IN Y' 

IS THE DISTANCE FROM 'F«A;i ' UPON WHICH THE SLOPE IS CALCULATED* 



CHAMt III X 


CHANGE IN Y 


SECANT SLOPE 


8 CHANGE IN SLOPE 


1/ & 


19 


19 


NO PREVIOUS VALUE 


1/ ft 


?. *80 


is.as 


19*73664 


1/ 4 


3*390*85 


13.5685 


11*0*557 


1/ « 


1.395703 


18*76568 


5*875576 


1/ U 


.773*01* 


18.37891 


3.08937* 


i/ a* 


. 3803509 


18.18848 


1.53834 


W 44 


.1889637 


18.09399 


i 7751 783 


1/ Its 


•094115*9 


18.04694 


.3891031 


1/ ft9t 


.04*9*6*7 


18*03347 


• 1948049 


1/ Sift 


•0834*039 


IS) .011 78 


.09771946 


1/ 1084 


•01178447 


13.00586 


.04878049 


1/ 8048 


5*8*08068*3 


13.00893 


.08440815 



***** 

DO YOU WISH TO USE A DIFFERENT VALUE OF X < I -YES* 0-N0>? 0 
TO CHANGE YOUR FUNCTION SEE THE INSTRUCTIONS* 

IF YOU ARE FINISHED* TYPE '!'* AND THE 'RETURN* KEY 
AFTER THE PROGRAM STOPS. 



BEADY 

I 
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100 REM SECANT SLOPE OP A CURVE - 0* J. O'CONNOR 8-18-68 

101 REM REVISED 8-7-70 CD. PESSEL) (COMBINATION OP SLCUG AMD DIFFQ) 

108 REM IMPORTANT VARIABLES* S- SECANT SLOPE! P -PERCENT CUAMOEI 

103 REM D-CHAMOB IN XI Y-CHAMOB IN Y 
105 LET Si«0 

110 PRINT TASC 10>>"SECANT SLOPE OP A CURVE • THE DERIVATIVE* 

180 PRINT 

130 PRINT "THIS PROGRAM CONSIDERS A FUNCTION OF X <Y»F<X>> WHICH IS" 

131 PRINT "DIFFERENTIABLE AT X-A AND AT ALL POINTS IN THE' INTERVAL" 

138 PRINT "(A«A+1>* THE VALUE OF THE DERIVATIVE AT X-A IS* 

133 PRINT "APPROXIMATED THHO«Sm SECANT SLOPES." 

134 PRINT 

139 PRINT "AFTER THE PROGRAM STOPS# TYPE IN THE FOLLOWING t* 

140 PRINT "(END EACH LINE# INCLUDING 'RUMS WITH A 'CARRIAGE RETURN*)" 

141 PRINT 

148 PRINT " 1 GO TO 300" 

143 PRINT " 300 DEF FNYCX)-. . . .(YOUR FUNCTION OF X) " 

145 PRINT " RUN" 

146 PRINT 

147 PRINT "FOR EXAMPLE# TO FIND THE SLOPE OF THE EQUATION Y«X»3" 

148 PRINT "YOU WOULD TYPE AS FOLLOWS!" 

149 PRINT 

150 PRINT " l GO TO 300" 

151 PRINT " 300 DEF FNTCX)»Xt3" 

153 PRINT * RUM" 

154 PRINT 

155 PRINT "YOU NIGHT TRY THAT AS YOUR FIRST RUN." 

156 PRINT "FOR SUBSEQUENT RUNS# YOU NEED ONLY CHANGE LINS 300 FOR" 

157 PRIMT "A MEW FUNCTION# FOLLOWED BY 'RUN'." 

160 STOP 

899 REM CALCULATION OF SLOPE AND PRINTOUT 
300 DEF FMYCX)-X*3 

305 PRINT "FOR WHAT VALUE OF A IS THE SLOPE TO BE EVALUATED"! 

306 INPUT A 

310 PRINT 

311 PRINT "'CHANGE IN X* IS THE DISTANCE FROM *A*# AND 'CHANGE IM Y*" 

318 PRINT "IS THE DISTANCE FROM *FCA) * UPON WHICH THE SCOPE IS CALCO"! 
313 PRINT "LATEO." 

316 PRINT 
31? PRINT 

380 PRINT "CHANGE IN X"«" CHANGE IN Y"#"8SCANT SLOPE"#"! ORANGE IN SLOPE" 

181 PRINT — -- -"#"——- — -"#"——— ——*#*- — * i- 

410 FOR N«0 TO 11 

480 LET D«8»N 

430 LET Y>FMYCA*1/D>-FNY<A> 

440 LET S*D*Y 

444 IF SIM) THEN 447 

445 PRINT "1/*D#Y#S#"M0 PREVIOUS VALUE" 

446 GOTO 455 

44? LET P»( (ABS(Sl-S) >/SI >*100 

450 PRINT "1/"D#V#S#P 

455 LET S1*S 
460 NEXT N 
470 PRINT 
480 PRINT "***••" 

490 PRINT 

500 PRINT "DP YOU WISH TO USE A DIFFERENT VALUE OF X (i-YSS# 0-9K>>"! 

501 INPUT 08 

508 IF 08 >0 THEN 305 

510 PRINT "TO ' CHANGE YOUR FUNCTION SEE THE INSTRUCTIONS." 

580 PRINT "IP YOU ARE P1NI SHED# " TYPE •»•# A*» 7MS 'RETURN* KEY" 

530 PRINT "AFTER THE PROGRAM STOPS:" ' 

540 END 
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DISCIPLINE MATHEMATICS 



SUB J EC T ALGEBRA(9TH and 12TH GRADE ) 
PROGRAM NAME SQRT 



DESCRI PTION: 



This program finds the square root of counting numbers up to 
five decimal places. 



O BJECTIVES ; 

A. To demonstrate and familiarize the students with square roots. 

B. The method utilizes 11 pinching” W~Z between the endpoints of 
smaller and smaller domains. 



PRELIMINARY PREPARATION : 

A. Student - 1) The definition of square root as the inverse operation 

of squaring; and 2) Drill in estimating square roots to the nearest tenth, 
hundredth, etc. 

B. Materials - none 



DISCUSSION ; 

This program provides an 11 introduction to,” and a ” review of” 
evolution and involution. Limiting the neighborhood of*f2T to find 
successively closer approximations of the square root of a number, 
demonstrates to the student that he is able to determine the square root 
to any degree. 

The program may be effectively utilized for introducing the 
limiting process. 
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PROGRAM FINDS SQUARE HOOT OF ANY POSITIVE NUMBER 
BY ’PINCHING' IT WITHIN A SMALLER AND SMALLER INTERVAL. 



WHAT IS THE NUMBER WHOSE SQUARE ROOT YOU SEEK? 54 



LOWER LIMIT 



0 


< 


SQ-RT- 


OF 


54 


< 


5-4 


< 


SU-RT- 


OF 


54 


< 


7-02 


< 


SQ-RT- 


OF 


54 


< 


7 - 344 


< 


SQ-RT- 


OF 


54 


< 


7-344 


< 


SQ-RT- 


OF 


54 


< 


7-348319 


< 


SQ-RT- 


OF 


54 


< 


7.348427 


< 


SQ-RT- 


OF 


54 


< 


7-348465 


< 


SQ-RT- 


OF 


54 


< 


7.348469 


< 


SQ-RT- 


OF 


54 


< 


APPROXIMATION 


NOV CORRECT 


TO 


AN 



YOU MAY USE EITHER 7-348469 OR 



UPPER LIMIT 



o4 

10-8 

7-56 

7-398 

7-3494 

7.348859 

7-348481 

7-34847 

7-34847 

ACCURACY OF 1-000000E-5 
-34847 AS THE SQUARE ROOT OF 54 



WVNT TO TRY ANOTHER NUMBER C1»YES/ 0»N0> * ? I 



( 



1HAT IS THE NUMBER WHOSE SQUARE ROOT YOU SEEK? 39 
LOWER LIMIT UPPER LIMIT 



0 


< 


SQ-RT • 


OF 


39 


3-9 


< 


SQ-RT- 


OF 


39 


6 • 24 


< 


SQ-RT- 


OF 


39 


6-24 


< 


SQ-RT. 


OF 


39 


6-2439 


< 


SQ-RT- 


OF 


39 


6-24468 


< 


SQ-RT- 


OF 


39 


6.244992 


< 


SQ-RT- 


OF 


39 


6-244996 


< 


SQ-RT- 


OF 


39 



APPROXIMATION NOV CORRECT TO 
YOU MAY USE EITHER 6-244996 



< 


39 


< 


7-6 


< 


6-63 


< 


6-279 


< 


6-8478 


< 


6-2450 7 


< 


6-245031 


< 


6*245 



AN ACCURACY OF 1 -000000E-5 
OR 6-245 AS THE SQUARE ROOT OF 39 



WANT TO TRY ANOTHER NUMBER < 1-YES/ 0«N0> * ? 0 



o 

o 

ERIC 
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O' 



100 

no 

120 

121 
125 
130 
140 
150 
160 
170 

iao 

185 

190 

200 

210 

220 

230 

235 

240 

250 

260 

270 

275 

260 

290 

300 

301 

302 
310 
320 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 



HEM T. BURNS* JOHN GLENN HS* 8-6-69 
REM REVISED BY C^LOSIK 8-27-70 

REM A«L0WER LIMIT* B=UPPER LIMIT* Z=STEP IN INTERVAL 
REM E IS THE ACCURACY YOU DESIRE 
LET E=. 00001 

PRINT "PROGRAM FINDS SQUARE ROOT OF ANY POSITIVE NUMBER" 

PRINT "BY ’PINCHING * IT WITHIN A SMALLER AND SMALLER INTERVAL." 

PRINT 

PRINT 

PRINT "WHAT IS THE NUMBER WHOSE SQUARE ROOT YOU SEEK 11 ; 

INPUT 2 
PRINT 

IF Z>0 THEN 220 

PRINT "YOUR NUMBER MUST BE POSITIVE !!!" 

GO TO 160 
PRINT 

PRINT "LOWER LIMIT"*" "*" "*"UPPER LIMIT" 

PRINT " — "*" "*" "*" " 

LET A«Q 
LET B«=Z 

LET S«< B-A) / 10 

PRINT A* "< SQeRT. 0F"Z"<"*B 

IF ABS<A*B-ZXE THEN 360 

FOR I C A TO B STEP S 

IF Z<I*I THEN 310 

NEXT I 

LET B»B*10 

GO TO 260 

LET B=I 

LET A-I-S 

GO TO 260 

PRINT 

PRINT "APPROXIMATION NOW CORRECT TO AN ACCURACY 0F"E 
PRINT "YOU MAY USE El THER"A ,, OR"B"AS THE SQUARE ROOT 0F"Z 
PRINT 
PRINT 

PRINT "WANT TO TRY ANOTHER NUMBER (1«YES* 0*=N0> I 
INPUT 2 

IF Z«1 THEN 150 
IF Z<>0 THEN 400 
END 
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DISCIPLINE 



MATHEMATICS-TEACHER ASSISTANCE 



SUBJECT ARITHMETIC MEAN (AVERAGE) 
PROGRAM STATAL 

V 

DESCRIPTION: 

4 

This program finds the average (arithmetic mean), median, and standard 
deviation of up to one hundred numbers. 



OBJECTIVES : 

A. To familiarize the student with the concepts of arithmetic mean 
(average), median, and standard deviation of a group of numbers 

B. To impress him with the speed and accuracy of the computer as a 
calculating device . 

C. To provide teachers with handy means of computing averages. 



PRELIMINARY PREPARATION : 

A. Student - "Arithmetic mean", "avera ge", "me dian", and "standard 
deviation” must be well-defined. 

B. Materials - None 



( 



DISCUSSION : 

Given N terms, ”A(l), A(2 ), . . . , A(N-l), A(N)”, students will have 
learned the average of these N terms is " A(l )+A(2 . .A(N-1 )+A(N) ". 

N 

The program prints out the median value of the user T s data when 
there is an odd number of data values. When there is an even number, 
the median value printed is the average between the N/2 and the 
(N+2 )/2 terms. 

The program serves as an excellent vehicle for drill in division and 
addition, and helps strengthen the concept of arithmetic mean (average). 

This program is useful in demonstrating a simple "loop” routine for 
students interested in programming. 
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MEAN* MEDIAN, AND DEVIATION OF A SET OF NUMBERS. 

ENTER YOUR NUMBERS IN DATA STATEMENTS ON LINES 
1000 - 2000. FOR EXAMPLE, YOU MIGHT TYPE : 

1000 DATA 1,2, 3, A ETC. (YOUR DATA GOES HERE) 

WHEN YOUR DATA HAS BEEN ENTERED, TYPE : 

1 GO TO 300 
RUN 

THEN RELAX WHILE THE MACHINE GkINDS OUT THE ANSWERS. 

IF A 'SUBSCRIPT ERROR' APPEARS, INCREASE THE SIXE OF THE 
ARRAY IN LINE 295. 

WARNING — THE NUMBER 9999 IS USED AS AN INTERNAL DATA 
VALUE. IF THIS VALUE IS ONE OF YOUR~DATA VALUES, SIMPLY 
RE-TYPE LINES 999 AND 2001 WITH A COMMON DATA VALUE WHICH 
YOU WILL NOT USE. 



READY 

1000 DATA 244,182,112,2,198,10,314,169,18,38 

1 GO TO 300 

RUN 



THESE ARE YOUR NUMBERS : 

244 182 112 2 198 10 314 169 18 3b 

THESE ARE YOUR NUMBERS CHIGHEST TO LOWEST) i 
314 244 198 182 169 112 38 18 10 2 



NUMBER OF VALUES IS 10 

SUM OF THE VALUES IS 1287 

THE MEAN VALUE IS 128.7 

THE MEDIAN VALUE IS 140.5 

THE STANDARD DEVIATION IS 209.5409 



FOR ANOTHER RUN, RE-ENTER DATA ON LINES 
1000 - 2000, TAKING CARE TO ELIMINATE OLD DAT4 
BY TYPING THOSE LINE NUMBERS WHICH YOU DO NOT USE AGAIN) 
THEN TYPE ’RUN’. 



READY 

1 

1000 
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100 
110 
115 
120 
130 
1 AO 
150 
160 
170 
1 71 

172 

173 
17A 
180 
190 
200 
210 
220 
222 
225 
227 
230 
2A0 
250 
260 
270 
275 
280 
285 
290 
295 
300 
303 
30 5 
310 

315 

316 
320 
330 
340 
345 
347 
350 
360 
370 
380 
390 

399 

400 
405 



ENTER YOUR NUMBERS IN DATA STATEMENTS ON LINES' 
1000 - 2000. FOR EXAMPLE/ YOU MIGHT TYPE 



","1000 DATA 1 , 2/ 3, 4 ETC. (YOUR DATA GOES HERE)' 
WHEN YOUR DATA HAS BEEN ENTERED/ TYPE *" 



REM CHARLES M. LOSIKz BKLYN POLY, MEAN-MEDIAN-DEVIATION 
REM (7-66 IN FORTRAN II) ; (8-26-70 IN BASIC) 

REM REVISED 9-24-70 

REM YOU PUT YOUR NUMBERS IN DATA STATEMENTS AND 
REM YOU GET WHAT YOU PAY FOR. 

PAINT " "/"MEAN/ MEDIAN/ AND DEVIATION OF A SET OF NUMBERS." 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

REM A(I) ARE THE NUMBERS/ S IS THEIR SUM/ 

REM S2 IS THE SUM OF THEIR SQUARES* 

REM 

PRINT ,# WARNING — THE NUMBER 9999 IS USED AS AN INTERNAL DATA" 
PRINT " VALUE. IF THIS VALUE IS ONE OF YOUR DATA VALUES/ SIMPLY" 
PRINT " RE-TYPE LINES 999 AND 2001 WITH A COMMON DATA VALUE WHICH" 
PRINT " YOU WILL NOT USE." 

STOP 

DIM A( 100) 



'/"l GO TO 300" 
'/"RUN" 



THEN RELAX WHILE THE MACHINE GRINDS OUT THE ANSWERS*" 

IF A 'SUBSCRIPT ERROR' APPEARS/ INCREASE THE SI£E OF THE" 
ARRAY IN LINE 295*" 



PRINT 

PRINT " THESE ARE YOUR NUMBERS *" 

LET 1®1 

READ E 

LET S*0 

LET S2=0 

READ A(I) 

IF E ■ AC I) THEN 370 
PRINT A(I) I 



LET S ■ S + A(I> 

LET S2 8 S2 + A(I) * A(I) 

LET I ■ I + l 
GO TO 320 
LET N » I - 1 
PRINT 
PRINT 

HEM ***** BUBBLE SORT***** 

PRINT " THESE ARE YOUR NUMBERS CHIGHEST TO LOWEST) 8" 
FOR l - 1 TO N - 1 
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410 FOR «J = I + 1 TO N 
420 IF AC I) > AC U) THEN 460 
430 LET T = AC I) 

440 LET AC I ) = AC J> 

450 LET AC J > = T 

460 NEXT 0 

465 PRINT AC I) ; 

470 NEXT I 
475 PRINT ACN) 

4S0 PRINT 
490 PRINT 

500 PRINT " NUMBER OF VALUES IS";N 
510 PRINT " SUM OF THE VALUES IS"IS 
520 PRINT " THE MEAN VALUE IS" i S / N 
530 PRINT " THE MEDIAN VALUE IS" I 
540 IF N / 2 <> INT C N / 2 > THEN 570 
550 PRINT C ACN/2 > + AC C N+2 > /2 > > /2 
560 GO TO 600 
570 PRINT ACCN + D/2) 

600 PRINT " THE STANDARD DEVIATION IS" i SOR ( N * S2 ^ * S ) / N 
610 PRINT 
620 PRINT 

630 PRINT " FOR ANOTHER RUN* RE-ENTER DATA ON LINES" 

640 PRINT " 1000 - 2000* TAKING CARE TO ELIMINATE OLD DATA" 

642 PRINT " BY TYPING THOSE LINE NUMBERS WHICH YOU DO NOT USE AGAIN* " 
645 PRINT " THEN TYPE 'RUN'." 

650 STOP 
999 DATA 9999 
2001 DATA 9999 
2010 END 




READY 
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DISCIPLINE MATHEMATICS, SOCIAL ST UDIE S 



SUBJEC T THE STOCK MARKET 
PROGRAM NAME STOCK 



DESCRIPTION : 

This program simulates the stock market. Each student is 
given $10,000 with which he may buy and/or sell shares in five 
fictitious issues. 

OBJECTIVES : 

A. To give the student a simple understanding of the oper- 
ations of the stock market. 

B. To motivate the student to reinforce his basic arithmetic 
skills . 

C. To give an example of the use of everyday mathematics 
and economics in everyday life. 

PRELIMINARY PREPARATION: 

A. Student - no special preparation 

B. Materials - possibly graph paper 
DISCUSSION : 

This program can be used as a good motivation device in the 
teaching of basic stock-market concepts, and the basic mathemat- 
ical skills involved. The computer starts each student with $10,000, 
and allows him to buy and/or sell shares. Precautionary tests are 
included for the student who tries to purchase more shares than 
he has money for, or to sell more shares than he actually owns. 

The program continues for as many trading days as the student de- 
sires. 

The stock values rise and fall on a semi-random basis. On 
each trading day all stocks undergo a small random price change, 
a trend change (based on a random trend), and the possibility — 
on a random basis — of a large price change. The structure of the 
formula is: 

new price=old price + (trend x old price) + (small random price 
change) + (possible large price change) 



Mathematics-Social Studies 
STOCK 



The trend is a random number between - .1 and +.1. It remains 
constant for a random number of days, at which time the trend is 
changed randomly. The trend affects all stocks equally, and attempts 
to simulate general market trends. The small random change ranges 
between -3 and +3 points. It occurs every day to every stock. 

The possible large price change is either +10 or -10 points. The 
+ and - changes each occur at random day intervals, and to random 
stocks. That is, there may be no large change on some trading days, 
only a +10 change on others, a -10 change on still others, and both 
large and small changes on others. In all large-change cases, the 
change affects only one random stock when it occurs. 

Because of the random generation of stock values and their 
fluctuations, the program does not exactly simulate the real market. 
It does, however, provide a simplified view of what does happen, 
and familiarizes the student with the basic functions involved. This 
should be explained to the students, along with some real causes 
of stock-market fluctuations. 

Graph paper might be used to plot the daily stock values and 
the exchange average. In this way, the trend will become evident. 
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THE STOCK MARKET 

DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1* NO-TYPE 0>? I 



THIS PRO SRAM PLAYS THE STOCK MARKET* YOU WILL BE GIVEN 
SlOtOOO AND MAY BUY OR SELL STOCKS* THE STOCK PRICES WILL 
BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT' 
REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE* A TABLE 
OP AVAILABLE STOCKS* THEIR PRICES# AND THE NUMBER OP SHARES 
IN YOUR PORTFOLIO WILL BE PRINTED* FOLLOWING THIS# THE 
INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION 
NARK; HERE YOU INDICATE A TRANSACTION* TO BUY A STOCK 
TYPE ♦NNN# TO SELL A STOCK TYPE -NNN# WHERE BBN IS THE 
NUMBER OF SHARES* A BROKERAGE FEE OF It WILL BE' CHARGED 
ON ALL TRANSACTIONS* NOTE THAT IF A STOCK'S VALUE DROPS 
TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN* YOU 
HAVE S10;000 TO INVEST* USE INTEGERS FOR ALL TOUR INPUTS. 
(NOTE! TO GET A 'PEEL* FOB THE, MARKET RON FOB AT LEAST 
10 DAYS) 

GOOD LUCK! 



STOCK INITIALS 

INT* BALLISTIC MISSILES * IBM 

BED CROSS OP AMERICA RCA 

LICHTENSTEIN# BUMSAP A JOKE L8J 
AMERICAN BANKRUPT CO. ABC 

CENSORED BOOKS STORE CBS 



PRICK/SHARE 
64.74 *' 
6S.5 
144*84 

las 

104.89 



NEW YORK STOCK EXCHANGE AVERAGE* 113.79 



TOTAL STOCK ASSETS ARE 9 0 
TOTAL CASH ASSETS ARE S 10000 
TOTAL ASSETS ARE 9 10000 



WHAT IS TOUR TRANSACTION IN 

IMt ft • * * 

BOAT 3 

U9J? 1 

ARC? 1 

COST 1 



«*•••••*•« BHD OF DAY'S TRADING 



STOCK 


PRICE/SHARE 


HOLDINGS 


VALUE 


IIS? PEICE CHANGE 


IBM 


04*9 * 


a * 


193 


10.74' : 


RCA 


• 1 


3 


843 


-4*8 


LBJ 


143*9 


1 


193.9 


-1*79 


ABC 


139*9 


1 


139*9 


•ft.B 


CBS 


09 


t 


99 


-9*G9 



MEN YORK STOCK EXCHANGE AVERAGE! 113.1 


NET CHANGE* -«G9 


TOTAL STOCK ASSETS ARE 


S 8S4 




TOTAL CASE ASSETS ARB 


S 9144.R9 




TOTAL ASSETS ARE 


S 9990 .«9 





DO TOU WISH TO CONTINUE (YES* 
WAT IS YOUR TRANSACTION IN 

$ ' " * 



TYPE t# NO-TYPE 0)7 1 



IBM? 

RCA? 

LBJ? 

ABC? 



84 



CBS? 0 
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S TRADING 






r) 


STOCK 


PRICE/SHABE HOLDINOS 


VALUE 


HIT PRICE CHANGE 




im 


98.75 


7 


591*85 


8*85 


. * 


BCA 


88.5 


4 


330 


1*5 




LRU 


154 


8 


303 


•5 




ARC 


133*5 


ft 


867 


•8 




CBS 


108.75 


i 


108*75 


3*75 




NEW YORK STOCK EXGHAStt 


AVERAGE! 114*2 


HKT CHANGE! 


1*8 




TOTAL 


STOCK ASSETS ASS 


S 1690 








TOTAL 


CASH ASSETS ABE 


£ 8305*83 








TOTAL 


ASSETS ARE 


8 10004*83 









DO YOU NISH TO CONTI MUX (YES-TYPE \» NO-TYPE 0)T 1 
IMA? IS YOUR TRANSACTION IN 
IMT % 

SCAT 8 
Uhl? 5 
ASCT -1 
COST 3 



•*•••*•*•* END OP DAY'S T8ADINS 



STOCK 


PRICE/SHARE 


HOLDINGS 


IM 


99*85 ~ 


10 " 


bca 


68*85 


6 


LRU 


154*75 


7 


ABC 


133*5 


1 


CM 


103.R5 


4 



VALUE NET PRICE CHARES 



998*5 


*5 


493.5 


-*85 


1083.85 


• 75 


133.5 


0 


413 


*5 




NEW YORK STOCK EXCUAN8S AVXBAttl 114*6 NET CHAN OS I *3 

TOTAL STOCK ASSETS ABE S 3119*75 
TOTAL CASS ASSETS ASX S 6668*5 
TOTAL ASSETS ABE * 9998.85 

BO YOU VI SH TO CONTINUE (YES-TYPE I# NO-TYPE 0)7 1 
NUT IS TOUR TRANSACTION IN 
IMT 5 

NBA? 3 
IMT 5 
SECT 3 
COST A 



«*•••**•»• END OP DAY'S T8ADINS 



STOCK 


PRICE/ SHARE 


HOLDINGS 


VALUE 


NET PRICE CHANCE 


IM 


96*75 


15 * 


1451.85 


*•0.5 


RCA 


60.5 


9 


T84i5 


-1.75 


LRU 


150 


It 


1800 


-4.75 


ARC 


138 


4 


588 


-1»5 


CM 


96*75 


G 


790 


-4.5 



NEV YORK STOCK EKCHANOB A VESA «K I 111.6 NET CMANOEI -3 




TOTAL STOCK ASSETS ABE 5 5893*75 
O TOTAL CASE ASSETS ARE 5 4580.95 

ERIC mM * UttTt 481 * 9800*7 
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DO YOU 


WISH TO CONTINUE (YES-TYPE 1* 


NO-TYPE 0)7 1 




WAT IS 


YOUR TRANSACTION IN 




“ 




IBM7 0 










BCA? -5 










UBJ? -7 










ADC 7 0 










CBS? -5 












•>** END OP BAY'S TRAOINfi 






STOCK 


PRICE /SHARE 


HOLDINGS 


VALUE 


MSI PHICE CUAN8B 


IBM 


94.75 ' 


IS ‘ 


1451*85 


o 


ftCA 


66.75 


4 


867 


-13.75 


LW 


150.75 


5 


753*75 


*75 


ABC 


138 


4 


586 


0 


CBS 


95.75 


3 


867.85 


-3 



NKV YOBK 


STOCK KXCHAHOS 


AVERAttt 108.4. 


MET CHAM ftXt 


-3*8 


TOTAL STOCK ASSETS ARE 


S 3867.85 






TOTAL CASH ASSETS ARE 


S 6455*74 






TOTAL ASSBTS ARB 


S 9748*99 






1)0 YOU VISH TO CONTINUE 


(YES-TYPE 1* NO-TYPE 0)7 1 




WAT IS YOUR TRANSACTION 


Iff 


* 




I Oft? -10 
RCAt -8 
LBJ7 8 
ARC? 8 
CDS? 0 












>* END or BAY'S 


TflADlMS 






STOCK 


P8ICE/SHA8S HOLD I NOS 


VALUE 


NET PRICE CKAN8B 


HIM' 


67*5 


"5 ‘ 


437*5 


-9*85 


RCA 


58 


ft 


116 


-6.75 


L8J 


135.85 


7 


946*75 


•15*5 


ABC 


188*5 


* 


735 


•9*5 


CM 


96.75 


9 


896*88 


3 



MBIT YORK STOCK BXCHAN8B A VESA OS I 100*4 NBT CSAMOEI -8 

TOTAL STOCK ASSETS ARB S 8531*3 
TOTAL CASH ASSETS ABB S 6974.58 
TOTAL ASSETS ARB S 9504.08 

BO YOU WISH TO CONTIMUB (YES-TYPE 1# MO-TYPE 0>t 1 
WAT IS YOUR TRANSACT t OB'* IN 

ISN7 -4 

NBAS -1 
lltff -6 
ABC? -8 
CSS? -8 



8G 
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«* END or BAY'S 


TRADING 






STOCK 


PRICE/SHORE 


HOLDINGS 


VALUE 


NET PRICE CHANGE 


IBM 


00 


1 


60 


-7*5 “ - 


SCO 


51 


1 


51 


-7 


LBJ 


181*75 


1 


181*75 


-13*5 


ARC 


109*5 


4 


436 


-13 


as 


91*5 


1 


91 *5 


-7*85 



MEV YORK STOCK EXCHAN BE 


AVERAGE 1 90*75 


RET CHANGE! *9*65 


TOTAL STOCK ASSETS ARC 


S 762*85 




TOTAL CASH ASSETS ARC 


S 8619*96 




TOTAL ASSETS ARE 


S 9408*81 





DO YOU VlSH TO CONTINUE <YES-TYPE 1# NO-TYPS 0>? I 

WOT IS YOUR TRANSACTION III 

18MT 0 

SCOT 0 

L847 0 

oact 
COST 0 



+**+++++** end or ooy*s trading 



STOCK 

uw 

SCO 

IM 

oac 

as 



PRICE/SHARE HOLDINGS 
77*5 " I 

58#I5 I 

119*85 I 

107 l 

08 #05 I 



VALUE 

77*5 

58*85 

119*85 

107 

98*85 



NET PRICE CHON8E 
•0*5 *" 

1*85 

-8*5 

-8*5 

*75 



18V YORK STOCK EXCHANGE OVERAGE* 89*05 NET CHANGE* -1*1 

TOTAL STOCK OSSETS ORE S 400*85 
TOTOL COSH OSSETS ORE S 8945*18 
TOTAL OSSETS ORE 5 9393*43 

M YOU VI SH TO CONTINUE < YES-TYPE 1# NO- TYPE 0>? I 

WOT IS TOUR TRANSACTION IN 

ISM? 0 

SCOT 0 

LOOT 0 

OKI 0 

cost 10 



*»*«»»**** end or DOY«S TRADING 



STOCK 


ratCE/SHARE 


HOLDINGS 


VALUE 


NET BRICE CHANGE 


tm 


7A.S- ' 




74*5 


-3 


RCA 


54 




54 


1*75 


UKI 


107 


1 


107 


-18*85 


ABC 


lot 


1 


108' 


1 


CBS 


90*75 


11 


998*85 


-1.5 
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MEV Y08K STOCK BXCHAMB AVBBAQB* 86.85 MB? CHAN8KI -8.8 

TOTAL STOCK ASSSTS ABB S 1341.75 
TOTAL CASH ASSSTS ABB S 8013.46 
TOTAL ASSETS ABB S 9355.81 

00 TOO WISH TO CONTI HUB (YKS-TYPB 1* NO-TYPE 0>» 1 

WAT IS TOOK TBANSACTIOH IN 

IOMT 5 

SCAT 6 

LOOT 10 

40C7 10 

OiST 10 



***••***•• BHD OT DAY’S TBADIMO 



STOCK 


PBICE/SHABB 


H0LDIN8S 


VALUE 


NBT PBICB CHAM OB 


IBM 


78 -• 


6 ' 


438 


-8.5 * 


8CA 


58.5 


7 


367*5 


-1.5 


LBJ 


105 


11 


1155 


-8 


ABC 


103.85 


11 


1135.75 


-4.75 


CBS 


91.5 


81 


1981.5 


• 75 



MBV YOBX STOCK EXCHANOS AVBBAOBl 84.85 NBT CHAMOEt -8 

TOTAL STOCK ASSETS ABB S 5011.75 
TOTAL CASH ASSETS ABB S 4881.98 
TOTAL ASSETS ABB S 9833.6? 

DO YOU WISH TO CONTINUE < YES- TYPE 1* NO-TYPB 0>? 0 
HOPE YOU'HAO PUMII . * 



HEADY ' 
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100 BEN STOCK MARKET SIMULATION -STOCK- 

101 REM REVISED 6/18/70 (D. PESSEL* L. BRAUN* C* LOSIK) 

108 REM IMP VRBLSt A-MRKT TRMD SLPt BS-BRKROE PEEJ C-TTL CSH ASSTSJ 

103 REM C5-TTL CSH ASSTS <YEM>>J Cdl-CHMO IN STK VALi D-TTL ASSTSJ 

104 REM EUE8-LR6 CHN8 MISCi I-STCK *t IUI8-STCKS V LR8 CHMOJ 

105 REM NUN8-LRG CHN6 DAY CNTSJ P5-TTL DAYS PRCHSSJ PCIJ-PRTPL CNTMTSJ 

106 REM 89-NEV CYCL1J S4-SGN OP A1 S5-TTLDYS SLSJ S(I>-VALUt/SHRJ 

107 REM T-TTL STCK ASSTSJ T5-TTL VAL OP TRNSCTMSJ 

108 REM V3-LR6 CKNOJ Xl-SMLL CHNd(«51)J Z4*ZS*Z6-NYSE AVE.J Z(I)-TRMSCTN 

109 PRINT TAB(80)!"THE STOCK MARKET”' 

110 DIM S(5)*P(5)*Z(5)*C(5> 

118 REM SLOPE OP MARKET TREMDIA (SAME POR ALL STOCKS) 

113 RANDOMIZE 

114 LET A*INT((BND(X>/10)*100*.5)/100 

115 LET T5*0 

116 LET X9*0 

117 LET Nl«0 

118 LET N8»0 

119 LET Kl*0 

180 LET E8-0 

181 REM INTRODUCTION 

188 PRINT ”00 YOU WANT THE INSTRUCTIONS (YES-TYPE 1* NO-TYPS 0>*J 

183 INPUT Z9 

184 PRINT 

185 PRINT 

186 !F*Z9«1 THEN 800 

130 PRINT "THIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN” 

138 PRINT ”510*000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL” 

134 PRINT "BE 9ENEBATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT* 

135 PRINT "REPRESENT EXACTLY WAT HAPPENS ON THE EXCHANGE* A TABLE* 

136 PRINT "OP AVAILABLE STOCKS* THEIR PRICES* AND THE NUMBER OP SHARES" 

137 PRINT "III YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS* THE” 

138 PRINT "IMITIALS OP EACH STOCK WILL BE PRINTED HITS A QUESTION* 

139 PRINT "Mark; HEBE YOU' INDICATE A TRANSACTION* TO. BUY A STOCK** 

140 PRINT "TYPE «MNN* TO SELL A STOCK TYPE -NNM* WERE MM IS THE" 

141 PRINT "NUMBER OP SHARES. A BROKERAGE PEE OP It WILL BE' CHARGED" 

148 PRINT "ON ALL TRANSACTIONS. NOTE THAT IP A STOCK *S VALUE' DROPS” 

143 PRINT "TO ZERO IT MAT REBOUND TO A POSITIVE VALUE AGAIN* YOU" ' 

144 PRINT "HAVE 510*000 TO INVEST. USE INTEGERS POR ALL TOUR INPUTS*" 
148 PRINT "(NOTE I TO GET A' 'PEEL* POR THE MARKET RUM FOB AT LEAST" ' 

146 PRINT "10 DATS)" 

147 PRINT "——GOOD LUCKl " 

800 REN' GENERATION OP STOCK TABLE! INPUT REQUESTS 

810 REM INITIAL' STOCK VALUES 

880 LET'S! 1)4100 

830 LET S( 81*85 

840 LET S(3>*IS0 

850 LET S(4)*I40 

860 LET S(5>*110 

865 BEM INITIAL' T8 - « DATS FOR FIRST TREND SLOPE (A) 

866 LET'TS*INTI4.99*RMD(X>*1> 

867 BEN RANDOMISE SION OP FIRST TREND SLOPE (A) 

868 IP RMD(X)».S THEM 870 ' 

889 LET A— A' 

870 RBI RANDOMIZE INITIAL VALUES 

880 GOSUB §30 

GSS REM INITIAL PORTFOLIO CONTENTS 

890 FOR' 1*1 'TO 8 
300 LET F(I)*0 
305 LET S(I)*0 
310 NEST I'" 

380 PRINT' 
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330 PRINT 

333 REN INITIALISE CASH ASSETSIC 

335 LET'C* 10000 

338 RIM PRINT INITIAL PORTPOLIO 

340 PRINT' "STOCK"i" "."INITIALS"# "PRICE/SHARE" 

390 PBlNT "IHT. BALLISTIC MISSILES"#* IBM"# SO) 

3SP PRINT "RED CROSS OF AMERICA"#" RCA"#S<8> " 

354 PRINT "LICHTENSTEIN# BUMRAP 4 JOKE"#" L8J"*S<3> 

356 PRINT "AMERICAN BANKRUPT CO."#" ABC"«S<4> 

398 PRINT "CENSORED BOOKS STORE"#" CBS"«S<5>' 

350 PRINT 

361 REM NYSE AVERAGE! ESI TEMP. VALUES24) NET CHANGES26 

363 LET 24-Z5 

364 LET Z5-0 

365 LET T-0 

370 FOB I«I TO 5 
375 LET 2S<*Z5+S< I > 

380 LET T»T»S<I)*PU> 

390 MEET I 

391 LET £S-INT<IOO*<Z5/5)4>.5)/IOO 
398 LET Z6-INT<<25-24>*100*.S>/100 

393 REM TOTAL ASSETS ID 

394 LET D-Y«C 

395 IF K9*0 THEN 396 

396 PRINT “NEW YORK STOCK EXCHAN QE AVERAGES "25 

397 GO TO 399 

398 PRINT "NEW YORK STOCK EXCHANGE AVERAGES "25" NET CHANGES "26 

399 PRINT 

400 LET T»INTC IOO*T+. 51/100 

401 PRINT "TOTAL STOCK ASSETS ARE S"IT 
403 LET C«INT<100*C*.5>/i00 

405 PRINT "TOTAL CASH ASSETS ARE S"IC 

407 LET D"INT<I00*D9.5)/I00 

408 PRINT "TOTAL ASSETS ARE S"ID 

410 PRINT 

411 IPX9-0 THEN 416 

418 PRINT "DO YOU WISH TO CONTINUE < YES-TYPE 1# NO-TYPE 0>-| 

413 INPUT 89 

414 IF 09«1 THEN 998 

416 REM INPUT TRANSACTIONS 

480 PRINT "WHAT IS YOOR TRANSACTION IN" 

430 PRINT "I8M"I 
440 INPUT SCI) 

450 PRINT "RCA" I 
460 INPUT 2(8) 

470 PRINT "LBU") 

480 INPUT Z<3> 

400 PRIMT "ABC" I 
900 INPUT 214) 

510 PRINT "CBS"I 
980 INPUT Z<5> 

985 PRIMT 

830 REM TOTAL DAY'S PURCHASES IN St PS 
540 LET PS«0 

980 RM TOTAL DAY'S SA LE S IM StSS 

560 LET S5-0 

570 FOR lal TO 5 

STS LET 2U)«1IT(IU)M> 

860 IP 2<X)4aO THEM610 
900 LET PSaPS*2lI>*S(l> ' 

400 00 TO 680 

610 LET S9*88-2< I >*SC I > 

618 IF -EUXaPU) THEN 680 

614 ;*RINT "YOU HAVE OVERSOLD A STOCK) TRY A8AIN." 

616 80 TO 480 

680 NEXT I 
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688 REM TOTAL VALUE OF TRANSACTIONS I T9 

689 LET T9-P9*S9 

630 REM BROXERAU FEB IBS 

640 LET BS-IMTC .0 1 *T5* 100+ *9 > / 100 

690 REM CASH ASSETS-OLD CASH ASSET S-TOTAL PURCHASES 
698 REM -BROKEBAOS PEE9+T0TAL SALES I CS 

694 LET C5aC“P5«B5+S5 

696 IF C5»>0 THEN 674 

696 PRINT "YOU HAVE USED S"-C3" NO 

IK THEN YOU HAVE." 

660 60 TO 480 

674 LET C-C5 

679 BEM CALCULATE NEV PORTFOLIO 

660 FOR 1*1 TO 9 

690 LET PtI>-PtI>+ZCI> 

700 NEXT I 

710 REN CALCULATE NEV STOCK VALUES 
780 0OSU8 630 

790 REN PRINT PORTFOLIO 

791 REN BILL RI HOI NO-DIFFERENT ON MANY COMPUTERS 

798 FOR 1-1 TO 80 

793 PRINT CHRS<139>* 

794 NEXT I 

799 PRINT 

796 PRINT "•«******»* END OF DAY'S TRAD INS" 

797 PRINT 

796 PRINT 

799 IP'X9«1 THEN 769 

769 PRINT "STOCK"#"PRICK/SHAHK"*"NOLDINaS"#"VALUI"#"NET PRISE CHANCE" 

770 PRINT "IMT# SC1>; PC1># S(1>*P<1># C(t) 

771 PRINT "RCA"# S(8># PCB>* S(8)>P(8>» C(8) 

778 PRINT "LRU"# S<3># PC3># S(3>#P<3>» CC3> 

773 PRINT "ABC"# S<4># PC4># S(4MP(4># C(4) 

774 PRINT "CBS"# SC5># PC5># S(9)'M>(3)# C<5> 

778 LET X9*l 

TOO PRINT * 

790 PRINT 

810 CO TO 360 

•89 REN NEV STOCK VALUES - SUBROUTINE 

830 aae randomly produce new stock* values based on previous 

831 REN DAY'S VALUES 

•38 REM N1«N8 ARE RANDOM NUMBERS OF DAYS (MICH RESPECTIVELY 
833 REN DETERMINE WEN STOCK 11 VI LL INCREASE 10 PTS. AND STOCK 
034 REM IS VI LL DECREASE 10 PTS. * 

940 REN IF N1 DAYS HAVE PASSED# PICK AN 11# SET El# DETERMINE NEV N1 

841 IP Nl»0 THEN 650 

849 LET U-IMTU.99*BND<X>+I> 

84S LET RlaINT(4.99«RND(X>«l> 

■47 LXT El-I 

•90 BIN IF N8 DAYS HAVE PASS3D# PICE AN It# SET S8« DETERMINE NEV NS 

891 IP N8»0 THEN 860 

•59 LET 18-1NTC4.99*BNDCX>+1> 

#96 LET 88-1 MTU. 99*RMD(X>+1> 

897 LET B£*l 

860 REN DEDUCT ONE BAY FROM Ml AND N8 

861 LET Ml-Ml-1 
•68 LET N8-N8-1 

890 REM LOOP THROUW ALL STOCKS 
900 POR 1-1 TO 9 * 

910 LXT Xl*BM>CX> 

919 IP XI*. 89 THEN 980 
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916 UCT X1-.85 
91? 00 TO 93S 

980 IP Xl».50 THEN 985 

981 LET Xl-.SO 
988 GO TO 935 

985 IP XI > • 75 THEN 930 

986 LET X1-.75 

987 00 TO 935 

930 LET Xi-0.0 

931 REM BIG CHANGE CONSTANT t V3 (SET TO EERO INITIALLY) 

935 LET N3»0 

936 IP EK1 THEN 945 

937 IP IMTCIl*.5>«»IMTCI*.5> THEN 945 

938 REM ADD 10 PTS. tO THIS STOCK) RESET El 

939 LET V3>10 
943 LET Kl-0 

943 IP E8«l THEN 955 

947 IP INT<ie+*5>«>lNT(I*«5) THEM 955 

948 REM SUBTRACT 10 PTS. PROM THIS STOCK) RESET E8 

949 LET N3-N3-10 

953 LET E8»0 

954 REM C<I) IS CHANGE IN STOCK VALUE 

955 LET Ct I >*IMT(A*S< I >)+Xl+INT(3*6*RND(X)**S)+W3 

956 LET C(!>»INT(100*C<I)*.5)/I00 

997 LET S(I>»S(I)*C<I) 

960 IP S<I>*0 THEN 967 

964 LET C(l>oO 

965 LET S(l>-0 

966 80 TO 970 

967 LET S(I>»IMT<100*S<I>*.5>/100 
970 NEXT I* ' 

978 REM APTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 

973 LET TG-T8-1 

974 IP T8«l THEN 985 
980 RETURN 

985 REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A). AND DURATION OP 

986 REM OP TREND (T8) 

990 LET T8»INT<4o99*RND(X)+l) 

998 LET A a lRT( <AMD(X)/10)6100+«5>/100 

993 LET S46RND(X) 

994 IP S4<-*5 THEM 997 

995 LET A— A 

997 RETURN 

998 PRINT "HOPE YOU HAD PUN 1 1" 

999 END 



) 





DISCIPLINE CALC ULUS -GRADE 13 



SUBJEC T AREA OF A SURFACE OF 
REVOLUTION 



PROGRAM NAME SURF A ft 



DESCRIPTION: 



This program approximates the area of a surface of revolution, by 
computing lateral areas of frustrums of cones of revolution. 



OBJECTIVES : 

A c The saving of time in computations. 



B. The 



speedy demonstration of limiting processes. 



C. The focusing of attention upon those processes needed to develop the 
analytic approach. 



P RELIMINARY PREPARATION: 

Before running this program, the lateral area of afrustrum of a 
cone shoald be discussed. Many students in the Advanced Placement 
Program have not taken a course in Solid Geometry and may be unfamiliar 
with the formula: 



Lateral Area = ir 1 (r^ + r^) 




Whether or not this formula is derived in class will depend on the amount 
of time available. Most likely it will merely be stated; students who have 
not taken Solid Geometry may be asked to look up the derivation on their own. 
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ABBA OF A SURFACE Of REVOLUTION 

THIS PR08RAM APPROXIMATES THE AREA OF A SURFACE OF 
REVOLUTION BY COMPUTING' LATERAL AREAS OF FRUSTUMS OF COMES 
OF REVOLUTION* TYPE IN YOUR FUNCTION OF X (Y-F(X))* 

WHOSE ORAPR HILL BE ROTATED ABOUT THE X AXIS* AS FOLLOWS: 

1 00 TO 800 

300 DEP FNYCX>-...(YOUR FUNCTION OF X>... 

RUN 

FOR EXAMPLE* TO USE THE FUNCTION Y-Xta YOU WOULD TYPE* 

1 00 TO 800 

300 DEF FNY(X>-Xt8 

RUM 

YOU HIOHT TRY THAT AS YOUR FIRST RUN. 

END EACH LINE* INCLUDING 'RUN'* WITH THE 'RETURN* KEY. 



READY 

1 00 TO 800 

300 DEF FNYCX>*X«8 

RUN 



WAT ARE THE ABSCISSAS OP THE END POINTS 
TO BE CONSIDERED (SMALLER FIRST* P*0>? -3 

MUMBER OF SUM OF 

SUBINTERVALS APPROXIMATING AREAS 


OP THE SECTION 
*8 

* CHANGE 
IN SOM 


1 


888.7871 


NO PREVIOUS VALUE 


ft 


384.8888 


11.68411 


4 


317.6818 


8.161883 


• 


315*334)6 


.7416313 


1# 


314.7434 


•187663S 


ftft 


314.5933 


.04769154 


$4 


314.5557 


.01197374 


lift 


314.5461 


3.08S796E-3 



WOULD YOU LIKE TO TRY NEW END POINTS (1-YES* 0-N0>? 0 
TO EMORR A REV FUNCTION YOU NEED ‘ONLY RETYPE LINE' 

300 •RUN*. SEE INSTRUCTIONS FOR MORE DETAILS. 

IF YOU ARE FINISHED* TYPE '1* AND THE 'RETURN* KEY. 



READY 

1 
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100 REM AREA OP A SURFACE OF REVOLUTION# 0. J. O'CONNOR# 7/18/66 

101 REM REVISED 6/81/70 CD. PESSEL7 * 

105 PRINT TAB(17>I "AREA OF A SURFACE OF REVOLUTION" 

106 PRINT " 

110 PRINT " THIS PROGRAM APPROXIMATES THE AREA OF A SURFACE OF" 

180 PRINT "REVOLUTION BY COMPUTING LATERAL AREAS OF FRUSTUMS OF CONES" 

130 PRINT "OF REVOLUTION. TYPE’ IN YOUR FUNCTION OF X <Y»F(X>>#" 

131 PRINT "WHOSE GRAPH WILL BE ROTATED ABOUT THE X AXIS# AS FOLLOVSl" 
150 PRINT 

160 PRINT " 1 80 TO 800" 

170 PRINT " 300 DEF FNY(X)-. . .(YOUR FUNCTION OF X>..." 

180 PRINT " RUN" 

165 PRINT 

186 PRINT "FOR EXAMPLE# TO USE THE FUNCTION Y«X»8 YOU WOULD TYPE*" 

187 PRINT 

188 PRINT " 1 GO TO 800" 

189 PRINT " 300 DEF FNYCX>-X»8" 

190 PRINT " BUN" 

191 PRINT 

198 PRINT "YOU MIGHT TRY THAT AS YOUR FIRST RUN." 

193 PRINT "END EACH LINE# INCLUDING 'RUN'# WITH THE 'RETURN* KEY." 

195 STOP 

800 REM COMPUTATION SECTION OF PROGRAM 

880 PRINT "WHAT ARE THE ABSCISSAS OF THE END POINTS OF THE SECTION" 

830 PRINT "TO BE CONSIDERED (SMALLER FIRST* P#0)"l 
840 INPUT P#Q - .... 

845 IF P<“0 THEN 850 

846 PRINT "P CANNOT BE GREATER THAN 01" 
a 7 GO TO 880 

850 PRINT 

860 PRINT "NUMBER OF SUM OF X CHANGE" 

870 PRINT "SUBINTERVALS APPROXIMATING AREAS IN SUM" 

PEIHT ^ 

885 LET El-0 
WO DEF FNY(X>-X*8 
305 FOR N-l TO 9 
310 LET E«8»<N-1> 

380 LET H-CO-P>/E 

330 LET S-0 

340 FOR 1-0 TO <E-1> 

350 LET G-FNY<P*I*R*H>*FNY<P*I*H> 

360 LET M-FNY(P*!#R'tR>-PNY<P'tl*H> 

370 LET L-3. 141 59*6*5GR(M*M+H6H) * 

380 LET S-S+L 
390 NEXT 1 

395 IF Sl-0 THEN 405 

396 LET W-100*(ABS(S-S1>>/<<S*S1>/8> 

399 IF Sl-0 THEN 405 

400 PRINT E«S«" "#W 
408 IP' W< IE-8 THEN 480 

404 GO TO'407 ' 

405 PRINT E«S«" "«"N0 PREVIOUS VALUE" 

407 LET Sl-S ’ 

410 NEXT N 
480 PRINT 

430 PRINT "WOULD YOU LIKE TO TRY NEW END POINTS ( 1-YES* 0-N0>"> 

431 INPUT 01 

438 IF 01 *0 THEN 880 

440 Print -to enter a new function you need only retype line" 

450 PRINT "300 AND 'RUN*. SEE INSTRUCTIONS FOR MORE DETAILS!" 

460 PRtNT "IF YOU ARE FINISHED# TYPE *1* AND THE 'RETURN* ’KEY." 

500 END ' " 





DISCIPLINE CALCULUS - GRADE 13 



SUBJECT VOLUME OF ANY SOLID 

OF REVOLUTION, (ANALYTICALLY 

DEFINED) 

PROGRAM NAME VOLSOL 




i 




♦ 




DESCRIPTION: 

Through the use of cylindrical discs, the program approximates the 
volume of a solid of revolution generated by rotating about the x-axis the 
area bounded by y = f(x), the x-axis, and the vertical lines x = a and x = b. 

OBJECTIVES : 

To help the student understand the analytic procedures and to 
appreciate the nature of the limiting process. 

PRELIMINARY PREPARATION : 

The class should be reminded of the formula for the volume of a 
cylinder, and the way in which a cylinder is generated by rotating a 
rectangle about one of its sides. 



DISCUSSION : 

It would be desirable to make use of an overhead projector trans- 
parency to display the cylindrical discs generated. 




Approximation of Volume of Revolution by Cylindrical Discs 
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VOLUME OF A SOLID OF REVOLUTION 

THIS PROGRAM USES CYLINDRICAL DISCS TO APPROXIMATE 
THE VOLUME OF A SOLID OF REVOLUTION* THE SOLID IS GENE- 
RATED BY ROTATING ABOUT THE X-AXIS THE AREA BOUNDED BY 
Y=FCX> * THE LINES X*A AND X=B* AND THE X-AXIS. 

TO INPUT YOUR FUNCTION OF X CY*FCX>> TYPE AS FOLLOWS; 

1 GO TO 200 

220 DEF FNY(X> = • ... (YOUR FUNCTION OF X).... 

RUN 

FOR EXAMPLE* TO USE THE FUNCTION Y=Xt2 YOU WOULD TYPE* 

1 GO TO 200 

220 DEF FNY(X>=X*2 

RUN 

YOU MIGHT TRY THAT AS YOUR FIRST EXAMPLE* 

END EACH LINE* INCLUDING ’RUN'* WITH THE 'RETURN' KEY. ' 



READY 



1 GO TO 200 

220 DEF FNYCX)=X*2 

RUN 



WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST* A*B) ? 0*5 



NUMBER OF SUM OF % CHANGE 

CYLINDERS CYLINDER VOLUMES IN SUM 



1 

2 

A 

8 

16 

32 

64 

128 

256 

512 



0 

306*7959 

939*5624 

1400*955 

1669*476 

1813*291 

1887*594 

1925*344 

1944*369 

1953*918 



NO PREV. VALUE* OR IT WAS EERO 
NO PREV. VALUE* OR IT WAS EERO 
206*25 
49.10 714 
19*16702 
8*614392 
4*097653 
1.999911 
*9881206 
*4911339 
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WOULD YOU LIKE TO TRY YOUK OWN 'NUMBER OF CYLINDERS' <l-YES> O-NOJ? 1 
HOW MANY CYLINDERS WOULD YOU LIKE TO TRY? 700 

FOR 700 CYLINDERS THE VOLUME IS 1956.487 • 

WOULD YOU LIKE TO TRY AGAIN < l-YES> O-NOJ? 0 

WOULD YOU LIKE TO TRY NEW VALUES OF A AND B C l-YES* 0-N0>? 0 
TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 220 AND 
•RUN 1 * SEE INSTRUCTIONS FOR MORE DETAILS. 

IF YOU ARE FINISHED* TYPE •!* AND THE •RETURN* KEY • 



READY 

I 
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> 



100 

101 
110 
111 
115 
117 
120 
130 
135 

140 

141 
145 
150 
160 
161 

165 

166 
167 
16b 

169 

170 

175 

176 
180 

199 

200 
210 
211 
212 

213 

214 

215 

216 

217 

218 
220 
230 
240 
250 
260 
270 
280 
290 
300 
305 
307 
310 



REM VOLUME OF A SOLID OF REVOLUTION* 0. O f CONNOR* 8/1/68 
REM REVISED b/24/70 <D. PESSEL) 

PRINT TAB< 15)* '• VOLUME OF A SOLID OF REVOLUTION" 



PRI NT 

PRINT" THIS PROGRAM USES CYLINDRICAL DISCS TO APPROXIMATE" 

PRINT"THE VOLUME OF A SOLID OF REVOLUTION* THE SOLID IS GENE”" 
PRINT"RATED BY ROTATING ABOUT THE X-AXIS THE AREA BOUNDED BY" 
PRINT"Y=F<X) * THE LINES X=A AND X=B* AND THE X-AXIS." 



PRINT 

PRINT"TO INPUT 



YOUR FUNCTION OF X <Y»F<X)) TYPE AS FOLLOWS*" 



I GO TO 200" 

220 DEF FNY<X>=. . . .<YOUR FUNCTION OF X)....' 
RUN” 



PRINT 
PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT"FOR EXAMPLE* TO USE THE FUNCTION Y»Xt2 YOU WOULD TYPE*" 
PRINT 

PRINT" I GO TO 200" 

PRINT" 220 DEF FNY<X)=Xt2" 

PRINT" RUN" 

PRINT 

PRINT"YOU MIGHT TRY THAT AS YOUR FIRST EXAMPLE." 

PRINT"END EACH LINE* INCLUDING 'RUN'* WITH THE ’RETURN* KEY." 

STOP 

PRINT 

PRlNT"WHAT ARE YOUR VALUES FOR A AND B ( SMALLER FIRST* A*B)"i 
INPUT A*B 
IF A<B THEN 214 

PRINT"A MUST BE SMALLER THAN B!" 

GO TO 200 
PRINT 



PRINT"NUMBER OF 
PRI NT" CYLINDERS 

PRINT" 

LET VI =0 

DEF FNY<X)=Xt2 



SUM OF 

CYLINDER VOLUMES 



% CHANGE" 
IN SUM" 



FOR N=1 TO 10 
LET D-2t<N"l> 

LET H=<B-A)/D 
LET V«0 

FOR 1=0 TO <D-1> 

LET Y=FNY<A+I*H> 

LET V=V+3.14159*Y*Y*H 



NEXT I 

IF V1»0 THEN 315 

LET P=100*<ABS<V-V1 ) >/Vl 

PRINT D*V* M "*P 
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312 IF P<#5 THEN 330 

313 GO TO 31b 

315 PRINT D#V#" NO PREV* VALUE# OR IT WAS 4ERO" 

31b LET V1«*V 
320 NEXT N 
330 PRINT 

333 PRINT 

334 PRINT”VOULD YOU LIKE TO TRY YOUR OWN 'NUMBER OF CYLINDERS’ (1-YES 

335 PRINT"# O-NO)"# 

336 INPUT 05 

337 IF 05 < 1 THEN 377 

33b PRINT"HOW MANY CYLINDERS WOULD YOU LIKE TO TRY"# 

339 INPUT D1 

340 IF D1 >1 THEN 343 

341 PRINT”NUMBER OF CYLINDERS MUST BE GREATER THAN 4ER0I" 

342 GO TO 33b 

343 IF D1 <1000 THEN 347 

344 PRINT"THIS IS A VERY LARGE NUMBER OF CYLINDERS AND MAY TAKE" 

345 FRINT"A LONG TIME TO RUN*" 

347 LET V2*0 

34b LET H1»(B-A)/D1 

349 LET Dl*INT(Dl+«5) 

350 FOR I«=0 TO (Dl-1) 

352 LET Y1=FNY(A+I*H1) 

354 LET V2=V2+3. 14159*Y1*Y1 *Hl 
356 NEXT I 
35b PRINT 

360 PRINT "FOR "Dl" CYLINDERS TRE VOLUME IS "V2" •" 

362 PRINT 

363 PRINT" WOULD YOU LIKE TO TRY AGAIN < 1-YES# 0-N0)"i 

364 INPUT Qfc 

365 IF U6>0 THEN 33b 
377 PRINT 

37B PRINT"*****" 

379 PRINT 

3S0 PHI NT" WOULD YOU LIKE TO THY NEW VALUES OF A AND B (1-YES# O-NO)"# 

3*2 INPUT 01 

384 IF 01 >0 THEN 199 

386 PRINT"TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 220 AND" 

388 PRINT" 'RUN * • SEE INSTRUCTIONS FOR MORE DETAILS." 

390 PRINT"IF YOU ARE FINISHED# TYPE 'l 5 AND THE 'RETURN' KEY." 

500 END 
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DISCIPLINE 
SU B J EC T MAGNETIC FIELDS 
PROGRAM NAME BFIELD 



DESCRIPTION : 

Student may visualize the effects of current on the magnetic 
field produced about a single conductor. The student may also explore 
the fields produced by the current flow in two parallel wires. The 
current in the two wires may be chosen in the same direction or in 
opposite directions. 



OBJECTIVES : 

To acquaint student with the magnetic fields produced by current 
carrying conductors. 

PRELIMINARY PREPARATION: 

A. Student - Prior preparation involving currents and fields. 

B. Materials - None 



DISCUSSION : 

Student may qualitatively explore the effects of currents on the 
production of magnetic fields by successively increasing or decreasing 
the current. The resulting magnetic field is printed out showing the 
relative magnitude of the field in relation to the position of the current. 

The student may also view the magnetic field due to two currents 
in the same or opposite direction. 

This program may also be used to introduce groups to the field 
concept. In addition, minor modification of the program will produce a 
ser j es of plots which will demonstrate an expanding field resulting from 
an increasing current. 
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WOULD YOU LIKE TO THY TWO DIFFERENT CURRENTS AT THE SAME 
TIME C YES= 1 } NO=l) ) ? 0 

WOULD YOU KATHER TRY ANOTHER CURRENT CYES»i; N0=0)? 1 
ENTER YOUR VALUE OF CURRENT? 6 

THE MAGNITUDE OF THE FIELD DECREASES FROM 9 TO 0. 

9 IS THE HIGHEST POSSIBLE FIELD STRENGTH* AND U 
(WHICH MEANS A EERO FIELD) THE LOWEST » 



METERS 
1 .2 
lei 
1 

o 9 

• 8 



METERS 

* 1 ® 2 ” • 6 0 e 6 1®2 

t *4* o • o o o o a •> o V o o f> o o u c o o "I" o t>oo<>Ooo<>~!*oo6eeoofto‘f*ft 
. 2222222222222222222222222 

. 22222222222222222222222222222 

• 222222222222 222222222222 

. 2222222222 2222222222 
, 22222222 3333333333333 22222222 . 



• 7 


•22222222 333333 




333333 


22222222 , 


• 6 


o 222222 


3333 444444444 3333 


222222 . 


e 5 


o 22222 


3333 44 


555 


44 3333 


22222. 


<>4 


e 2222 


333 44 55 


66666 


55 44 


333 


2222. 


a 3 


• 2222 


33 44 5 67 


886 


76 5 44 


33 


2222. 


*2 


o 222 


333 . 44 56 9 




9 65 44 


333 


222«) 


o 1 


© 222 


33 4 5 9 




9 5 4 


33 


222 . 


0 


.222 


33 4 56 b 




6 65 4 


33 


222. 


■ o 1 


•» 222 


33 4 5 9 




9 5 4 


33 


222. 


■ o 2 


o 222 


333 44 56 9 




9 65 44 


333 


222 c 


*3 


• 2222 


33 44 5 67 


668 


76 5 44 


33 


2222* 


• 4 


» 2222 


333 44 55 


66666 


55 44 


333 


2222. 


• 5 


•22222 


3333 44 


555 


44 3333 


22222. 


* 6 


.222222 


3333 444444444 3333 


222222 . 


’ • 7 


•22222222 333333 




333333 


22222222 . 



■*B « 22222222 3333333333333 22222222 

■•9 * 2222222222 2222222222 

■1 . 222222222222 222222222222 
•I.l • 22222222222222222222222222222 

■ 1 • 2 . 2222222222222222222222222 

• + a®sr*«ooiR*Vaooooo<ioo“l’<»o««Ge ooo't'ooao* o « * o + 
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WOULD YOU LIKE TO TKK TWO DIFFEHENT CURRENTS AT THE SAME 
TIME CYES=>i; N0=0>? 1 

THE TWO CURRENTS WILL BE SEPARATED BY 1«U METER. (NOTE: IF 

THE CURRENTS ARE TO BE OPPOSITELY DIRECTED# STATE ONE OF THEM 
AS A NEGATIVE VALUE). 

ENTER THE TWO CURRENTS? 



METERS 

1.2 

1.1 

1 

.9 
•b 
.7 
• 6 

• 5 
.4 

• 3 

• 2 
.1 
0 

-.1 

-.2 

• • 3 

- .4 
-.5 

— • 6 
-.7 

• • 8 
-.9 
-1 

- 1.1 
- 1 .2 



1*2 

+ • . . 



METERS 

.6 0 



1 .2 



11111111 222222222222222222222 . 
111111 22222222222222222222222222 . 

11111 2222222 222222 . 

lUl 22222 333333333333 222. 

Ill 2222 3333333 333333 2. 

11 222 3333 4444444444 3333 • 



11 222 333 4444 555555 

1 22 3 44 555 666666 

2 3344 555 666 77 1 

2 3 45 66 777 b 9 

8888 9 
9999 



1 
1 

1 2 678 

1 23469 
12 3 7 ♦ 

1 
1 
1 
1 



23469 9999 

2 678 8888 9 

2 3 45 66 111 8 9 

2 3344 555 666 77 



7 6 



444 333 < 

55 44 33. 

6 55 4 3. 

76 5 4 . 

876 544 • 
8 65 4 . 
8765 4 . 
8 65 4 . 
876 544 - 
76 5 4 . 

55 4 3. 



22 3 44 555 666666 55 44 33* 

222 333 4444 555555 444 333 . 

222 3333 4444444444 3333 < 

I 2222 3333333 333333 2. 

II 22222 333333333333 222- 

III 2222222 222222 - 
1111 22222222222222222222222222 . 
111111 222222222222222222222 

• « 



U&NT TO TRY AGAIN <YES»i; N0*0>? 1 

TOE TWO CURRENTS WILL BE SEPARATED BY nO METER. (NOTE* IF 
THE CURRENTS ARE TO BE OPPOSITELY DIRECTED* STATE ONE OF THEM 
AS A NEGATIVE VALUE). 

ENTER THE TWO CURRENTS? 4*4 
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METEKS 
1 *2 
1*1 
1 

» 9 

.6 

*7 

*6 

.5 

• 3 

• 2 

-1 

<J 

-•1 

- • 2 
-.3 
-.4 
-.5 
■ • 6 
-.7 
■ • 6 
-.9 
-1 

-i *i 
- 1*2 



- 1.2 



METERS 

-.6 0 



1 .2 



. 22222222222222222222222222222222222222222 * 
.222222222 222222222 * 

.22222 22222 . 

.22 3333333333333333333 22. 

. 33333333333333333333333333333 

. 333333333333333333333333333333333 33 

. 33333 3333333 33333 . 

.3333 44444444 33333 44444444 3333* 

.333 444 555 444 33333 444 555 444 333. 

666 5 4 33333 4 5 
6543 2 3456 8 

8 432 1 234 b 
64 101 46 + 

b 432 1 234 b 
6543 2 3456 

5 4 33333 4 5 
555 444 33333 444 555 
33333 
3333333 



.33 44 5 

.3 44 56 

.3 44 5 b 
.3 44 567 
.3 44 5 b 
.3 44 56 

.33 44 5 

.333 444 

.3333 44444444 

• 33333 



8 b 



b b 
666 



666 
b 



5 44 33. 

65 44 3. 

8 5 44 3. 

765 44 3. 
b 5 44 3. 
65 44 3. 

5 44 33. 

444 333. 

44444444 3333. 

33333 



b b 
666 



. 33333333333333333333333333333333333 

. 33333333333333333333333333333 

>22 3333333333333333333 22. 

.22222 22222 . 

.222222222 222222222 . 

» 22222222222222222222222222222222222222222 . 




VftNT TO TRY AGAIN <YES*W N0»0>? 1 

THE TWO CURRENTS WILL BE SEPARATED BY 1.0 METER. (NOTE: IF 

THE CURRENTS ARE TO BE OPPOSITELY DIRECTED* STATE ONE OF THEM 
AS A NEGATIVE VALUE). 

ENTER THE TWO CURRENTS? 
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METERS 
1 .2 
1.1 
1 

.9 
• 8 

• 7 

• 6 

• 5 
*4 

• 3 



-.3 
-.4 
-.5 
* • 6 
• • 7 
” *8 

■1 

1.1 

1.2 



1 .2 

+ • • « 



222 

222 33 
222 3 4 



METERS 

-.6 0 *6 

• •• + • • 

111111111111111111111111111 
111111111111111111111111111 
111111111111111111111111111 
11111 11111 

1 22222222222 1 
222222222222282222222 
22222 22222 

3333333333333333333 
44444444444444444 



1 .2 
. + « 



55 55555555555 55 



222 

33 222 
4 3 222 



. 2 


• 1 


22 3 


68 


7 


66 


66 


7 


86 


3 22 


• 1 


• 


22 3 4 7 




9 


7 666 7 


9 




7 4 3 22 


0 


• 


22 3 6 


♦ 




7 


7 




- 


6 3 22 


-.1 


• 


22 3 4 7 




9 


7 666 7 


9 




7 4 3 22 


— o 

. C. 


• 1 


22 3 


86 


7 


66 


66 


7 


66 


3 22 



222 3 4 
222 33 
222 



55 



55 



55555555555 
44444444444444444 
3333333333333333333 
22222 22222 

222222222222222222222 
1 22222222222 1 
11111 11111 

111111111111111111111111111 
111111111111111111111111111 
111111111111111111111111111 




4 3 222 
33 222 
222 



U4NT TO TRY AGAIN CYES=l; N0»0>? 0 

WELL I GUESS YOU’RE ALL THROUGH. THANKS-- SEE Y 'A 



READY 
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iREM A.C. CAGQIANOJ PATCHOGUE H .S.J PHYSICSJ 7-*69 
a REM THIS PROGRAM PERMITS A STUDENT TO VISUALIZE THE MAGNETIC 

3 REM INDUCTION ABOUT A SINGLE CONDUCTED AND THE INFLUENCE OF' THE 

4 REM CURRENT ON THE MAGNITUDE OF THE FIELD. THE STUDENT MAY ALSO 

5 REM VIEW THE MAGNETIC FIELD DUE TO TWO CURRENTS IN THE 

6 REM SAME OR OPPOSITE DIRECTIONS. 

7 RSH 

BREM IT SHOULD BE NOTED THAT THE PRINTOUT FOR EACH FIELD PLOT TAKES 

9 REM ABOUT 4 MINUTES 

10 REM 

11 REM REVISED BY L. BRAUN AND C. LOSIK 7*88-70 
18 REM 

13 GO TO 840 

80 PBINT"THIS PROGRAM HILL PERMIT YOU TO EXPLORE THE MAGNETIC FIELD" 

30 PR1MT”A80UT A CURRENT DIRECTED INTO THE PAGE ASA FUNCTION OF THE" 
tO PRIMT“C0RHENT MAGNITUDE." 

.50 PRINT - 

GO PRINT" WHAT HILL BE YOUR INITIAL CURRENT (SELECT POSITIVE VALUES" 

TO PRIMT"BETHEK» 1 AND 8 AMPERES).” * " 

80 PR1NT"£NTER YOUR VALUE OF CURRENT") 

90 INPUT II 

95 IF ABS(I 1 )>8 THEN 110 
100 IF ABS(Ii)»-l THEN 130 

110 PRINT"C'HON NOW-- ENTER PROPER VALUES.” 

180 GOTO 60 * 

130 IF K»0 THEN 180 
140 PRINT 

150 PRINT "THE MAGNITUDE OF THE FIELD DECREASES FROM 9 TO 0. " 

155 PRINT "9 IS THE HIGHEST P0S5I8LE FIELD STRENGTH* AMD 0" 

160 PRINT "(WHICH MEANS A ZERO FIELD) THE LOWEST." 

170 PRINT 
180 SOSUD 440 
190 LET S«K+1 
800 PRINT 

810 IF K-8 THEN 840 

880 PRINT"SELECT A DIFFERENT CURRENT." 

830 GOTO 80 

840 PRIHT"WOULD YOU LIKE TO TRY TWO DIFFERENT CURRENTS AT THE SAME" 

850 PB2MT"TIME (YES-1) N0-0)"J 

860 INPUT 8 

870 IF 0-1 THEN 330 

875 IF 0<*O THEN 840 

880 PRINT" WOULD YOU BATHER TRY ANOTHER CURRENT (YES-1) N0«0)"J 

890 INPUT P 

300 IF P-1 THEN 80 

305 IF P«»0 THEN 880 

310 PRINT" HELL I GUESS YOU'RE ALL THROUGH. THANKS— SEE Y'A" 

380 STOP 

330 PRINT" THE TWO CURRENTS HILL BE SEPARATED BY 1*0 METER. (NOTES IF" 

340 PHI NT" THE CURRENTS ABB TO BE OPPOSITELY DIRECTED* STATE ONI OF'TREM" 
380 PRlNT"AS A NEGATIVE VALUE) •" 

300 PRtNT"EMTER THE TWO CURRENTS'") 

370 INPUT 11*18 
380 PRINT ‘ 

390 80SUB 440 

400 PRINT" KANT TO TRY A BAIN (YES-1 J N0-0>") 

410 IMPUT P 
480 IF P-1 THEM 330 
483 IF P-0 THEN 310 
485 GO TO 400 
440 PRINT 

450 PRINT " "*" "* "METERS" 

460 PRINT" "*"-1.8 -.6 0 .6 1.8" 
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470 FBI NT - METERS™. " ♦ 

400 FOB Y-1.8 TO >1.8 STEPC-.l) 

900 PRINT * ">INT<10*YFiS)/10» M ."l 

530 FOB Z--C TO 8 STEP(.l) 

540 LET X«.6*Z 

S4S LET YB-Y4Y 

550 IF 8<»1 THEN 730 

560 IF ABS<Y>».001 THEN 640 

570 IF ABS(Z*.S)>.001 THEN 610 

500 IF 1 1 >0 THEN 600 

500 PRINT "-"I 

595 00 TO 945 

600 PRINT **♦"! 

60S 00 TO 945 

610 IF A8SCZ-.0X.OO1 THEN 640 
680 IF 18*0 THEN 600 
630 00 TO 590 

635 REN R1 AND R8 ARE SftUARES 111 

640 LET El-X-t.5 

650 LET X8-X-.5 

660 LET R1"X14X1*Y8 

670 LET R8«X8*X8*Y8 

600 REM PARALLEL VIRES 

690 LET H1>U*Y/R1*18*Y/R8 

695 REM RB IS REALLY MINUS OF VHAT VE HAVE 

100 LET Hfi* 1 1 *X1 /R1 ♦! 8*X8/R8 

710 LET B-S0R<Hl*Hl+B8*H8) 

780 60 TO 760 

730 LET R-S8R(X*X4Y8) 

740 IF ABSiRX.OOl THEN 500 
750 LET B-ABSU1/R) 

760 IF 8».001 THEN 600 
770 PRINT "0-J 
760 60 TO 945 
000 FOR J»1 TO 9 

610 IF ABS<B>8.5*J>«.75 THEN 040 

080 NEXT J 

085 PRINT " "1 

030 00' TO 945 

040 IF «J»5 THEN 900 

050 IF «J«»1 THEN 060 

053 PRINT "1") 

056 60' TO 945 

060 IF «J«»8 THEM 070 

063 PRINT "8" 1 

060 60' TO 945 

070 IF J«»3 THEN 000 

073 PRINT "3"1 

676 60' TO 945' 

000 IF «H*4 THEN 090 

003 PRINT ”4*1 

004 00 TO 945 

090 IF J«»S THEM 900 

093 PRINT "5"J 

096 0OTO 945 

900 IF «K»4 THEN 910 

903 PRINT -4-1 

906 00' TO 945 

910 IF U«»7 THEN 980 

913 PRINT "7"l 

916 60' TO 945 

980 IF J«»0 THEM 930 

983 PRINT "0-1 

984 00' TO 945 

930 IF U«»9 THEM 085 
933 PRINT -9-1 
940 NEXT Z‘ 

950 PRINT 
900 NEXT Y 

940 PRINT " * 

070 PRINT ' 

900 RETURN 
990 END 
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DISCIPLINE PHYSICS 

THE” BOHSTStOM AND 
SUBJECT PHOTON EMISSION 

PROGRAM NAME BOHR 



DESCRIPTION: 



The student may choose to have the Lyman, Balmer, or 
Paschen Series of the hydrogen emission spectrum displayed. He 
then must decide which energy level transitions are responsible for 
the lines of the spectrum that he has chosen. If he is successful, an 
energy-level diagram is presented and he must determine the energies 
of the photons emitted by the electron as it falls between randomly- 
selected energy levels. 



OBJECTIVES : 

To give an increased understanding of the Bohr atom and of 
how emission spectra are formed. 



PRELIMINARY PREPARATION : 

A. Student - The student should have been introduced to the Bohr atom, 
quantum theory, and ideally, have measured the wavelengths of the 
bright lines of the hydrogen spectrum. 

B. Materials - A piece of paper and a pencil. 



DISC USSION : 

After the student selects the series he wishes to see, it is 
displayed and he tries to discover which quantum level jumps by the 
electron are responsible for the first two of three lines in the series. 

If he is successful three times, a statement as to how the lines of that 
series are formed is printed and he may then elect to try another series 
or move on to work with the energy-level diagram for hydrogen. 

After a brief explanation concerning the energy of a photon 
emitted during the transition of the electron from a higher to a lower 
energy level, the student is given a chance to show what he has learned. 
Energy levels are randomly selected and he must calculate the energy 
of the emitted photon. If the student is not successful, he gets a further 
explanation. After six trials the program ends. 
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YOU MAY VICV THE 1* LYMAN ft*BALMER OH 3* PASCHEN 
SERIES BY TYPING IN THE NUMBER OF THE SERIES YOU BANT 
DISPLAYED# OR TYPE A FOR AN ENERGY LEVEL DIAGRAM* 



CHOOSE THE NUMBER OF THE PART YOU WOULD LIKE TO SEE* 
7 ft 




7000 A 
6900 A 
6800 A 
6700 A 
6600 A 
6500 A— 
6400 A 
6300 A 
6800 A 
6100 A 
6000 A 
5900 A 
5800 A 
5700 A 
5600 A 
5500 A 
5400 A 
5300 A 
5800 A 
5100 A 
5000 A 
4900 A 

4800 A 

4700 A 
4600 A 
4500 A 
4400 A 
4300 A— 
4800 A 
4100 A— 
4000 A 

3900 A 

3800 A— 
3700 A 

3600 A 

3500 A 
3400 A 
3300 A 
3800 A 
3100 A 
3000 A 



6564*706 



4868*745 



4341*737 

4108*941 

3971*848 

3890*196 

3647*059 -•-—SERIES LIMIT 
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ACCORDING TO THE BOHR THEORY EACH Or THESE LINES RESULTS 
FROM THE EMISSION OP A PHOTON DURING THE TRANSITION OF THE 
ORBITAL ELECTRON OP AN EXCITED HYDROGEN ATOM PROM A HIGHER 
ENERGY STATE (ORBIT) TO A LOVER ONE* IN A PARTICULAR SERIES 
THE TRANSITION C JUMP) IS ALWAYS INTO THE SAMS LOVER LEVEL 
(ORBIT) FROM ANY HIGHER ONE* 

LET'S SEE IP YOU CAN DETERMINE WHICH TWO ORBITS THE ELECTRON 
JUMPED BET VEEN TO GIVE THE LINES THAT HAVE BEEN DISPLAYED. 

THE LOVEST ENERGY LEVEL (GROUND STATE) IS NUMBERED ONE* 
HIGHER ENERGY LEVELS HAVE HIGHER NUMBERS IN SEQUENCE. 



FOR EXAMPLE! FROM 4 TO I ENTER AS 4*1? 3*4 
HEY 1 1 FROM A HIGHER TO A LOVER ENERGY LEVEL* 



FOR EXAMPLE! FROM 4 TO I ENTER AS 4*1? 3*8 

GOOD START* THAT GIVES A WAVELENGTH OF 6564*706 
WE NEXT LINE IS FORMED BY WHICH TRANSITION? 48-»8 

BY GEORGEt I I THINK YOU'VE GOT IT!! THE WAVELENGTH IS 4868*745 
TRY ONE MORE - THE NEXT ONE* ENTER N0W.7 5*8 



ANY TRANSITION FROM A HIGHER ENERGY LEVEL INTO THE 
SECOND ENERGY LEVEL YIELDS A PHOTON OF THE BALMER SERIES* 

IF YOU WOULD LIKE TO TRY ANOTHER SERIES TYPE IN THE NUMBER 
CP THAT SERIES* IF YOU WANT TO GO ON TO A NEW PART OF 
WE PROGRAM TYPE 4 
W.ICH77 4 



YOU HILL NOW GST AN ENERGY LEVEL DIAGRAM FOB HYDROGEN* 

IT SHOWS THE ENERGY OF THE ELECTRON IN THE VARIOUS ENERGY 

Levels* the difference between the energy of the electron 

IN A HIGHER LEVEL AND THAT IN A LOVER LEVEL IS THE ENERGY 
Or THE EMITTED PHOTON. E<PH0T0N> a E (HIGHER) - E (LOVER) 
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m •• 
M- 6 
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M* 4 

H» 3 
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•540001 
•850001 

1 *510001 
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E- - 3*400001 



m i 



13*6 



) 



o 

ERiC 



FIND THE ENERGIES OF THE PHOTONS GIVEN OFF FOR THE 
TRANSITIONS GIVEN BELOV* 

FROM LEVEL 8 TO LEVEL 1 THE ENERGY OF THE PHOTON I S?? 10*8 
GOOD. TRY ANOTHER 

FROM LEVEL 4 TO LEVEL 8 THE ENERGY OF THE PHOTON IS?? 8*63 

THE ENERGY OF LEVEL 4 IS-. 85 
IRE ENERGY OF LEVEL 8 IS-3.4 

THEIR DIFFERENCE - PHOTON ENERGY - 8*53 

FROM LEVEL 4 TO LEVEL 8 THE ENERGY OF THE PHOTON IS?? 8*33 
GOOD. TRY ANOTHER 

FROM LEVEL 8 TO LEVEL 1 THE ENERGY OF THE PHOTON IS?? 10.8 
GOOD* TRY ANOTHER 

FROM LEVEL 3 TO LEVEL 8 THE ENERGY OF THE PHOTON IS?? 8*86 
GOOD* TRY ANOTHER 

FROM LEVEL 3 TO LEVEL 8 THE ENERGY OF THE PHOTON IS?? 8.86 
THANK YOU* AND GOODBYE* 



READY 
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1 REM JOHN HOSIE - MORTHPORT HIGH - 7/23/69 
90 LET T»8 

100 REM REVISED BY C.LOSIK 8-81-70 

103 REM M IS WHICH PROBLEM* L IS A SERIES VAVELENQTH*A AND B ARE 
106 REM UPPER AND LOVER LIMITS OF POSSIBLE SERIES VALUES 
180 RANDOMIZE 

130 PRINT "YOU MAY VIEW THE 1. LYMAN 8.BALMER OR 3. PASCHEN" 

140 PRINT "SERIES BY TYPING IN THE NUMBER OF THE SERIES YOU WANT" 

150 PRINT "DISPLAYED* OR TYPE 4 FOR AN ENERGY LEVEL DIAGRAM." 

160 PRINT 

170 PRINT " CHOOSE THE NUMBER OF THE PART YOU VOULD LIKE TO SEE. "I 
180 PRINT 
190 LET Q-l 
800 DIM 5(10) 

810 LET J-0 
880 INPUT M 
888 FOR 8-1 TO 4 
884 IF M*8 THEN 835 

886 Next o 

888 PRINT "1* 8* 3* OR 4 ONLY* PLEASE I" 

830 GO TO 880 
835 PRINT 

840 IF M»4 THEN 1800 
8S0 LET NoN+1 
860 LET D-18400*M«3/13.6 
870 LET Dl-INT (.01*D) 

880 GO TO 4 SO 

890 FOR I -A TO B STEP -1 

300 LET S»13.6*<l/M«8-1/N«8) 

310 LET L-18400/E 
380 LET P-INT <iOI*L> 

330 IF I>D1 THEN 430 
340 IF 1>P THEN 370 
350 PRINT 100*1" A" 

360 GO' TO 410 ‘ 

370 LET J»J*I 
380 LET SC J)-L 

390 PRINT 100*1" A— — — — "L 
400 LET H-N+l 
410 NEXT I 
480 GO TO 590 

430 PRINT 100*1" A— — — — *18400*M*M/13.6"— — SERIES LIMIT" 

440 GO TO 410 

450 LET Y“l8400*lM*8*M»8>/< 13«6*(N*8-M»8) 1 
460 LET Y-IMTC .OloY) 

470 IF Y«15 THEN 500 

480 IP Y<70 THEN 530 

490 IF Y<190 THEN 560 

500 LET A" 13 

510 LET 8»S 

580 GO TO 890 

530 LET A -70 

540 LET B-30 

550 GO TO 890 

560 LET A- 190 

570 LET Bb76 

575 IF 3*1 THEN $80 

580 GO TO 890 

590 PRINT 

600 PRINT " ACCORDING TO THE BOHR THEORY EACH OP THESE LINES RE SHUTS" 
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CIO PaiNT "FROM THE EMISSION OF A PHOTON DURING THE TRANSITION OF THE" 
680 PRINT "ORBITAL ELECTRON OF AN EXCITED HYDROGEN ATOM FROM A HIGHER" 
630 PRINT "ENERGY STATE (ORBIT) TO A LOVER ONE. IN A PARTICULAR SERIES" 
640 PRINT "THE TRANSITION (JUMP) IS ALWAYS INTO THE SAME LOVER LEVEL" 

690 PRINT "(ORBIT) FROM ANY HIGHER ONE." 

659 LET G-G-H 

660 PRINT " LET'S SEE IF YOU CAN DETERMINE WHICH TVO ORBITS THE ELECTRB 
670 PRINT "JUMPED BET VEEN TO QIVE THE LINES THAT HAVE BEEN DISPLAYED." 
680 PRINT " THE LOVEST ENERGY LEVEL (GAOUND STATE) IS NUMBERED ONE." 

600 PRINT "HIGHER ENERGY LEVELS HAVE HIGHER NUMBERS IN SEQUENCE." 

TOO LET F-l 
710 PRINT 
780 PRINT 

730 PRINT " FOR EXAMPLES FROM 4 TO 1 ENTER AS 4» l"i 
735 LET T-TM 
740 INPUT N.M1 
750 PRINT 

760 IF N>M1 THEN 680 
770 IF F«»l THEN 800 

780 PRINT "HEYll FROM A HIGHER TO A LOVER ENERGY LEVEL." 

790 GO TO 710 

600 PRINT "OOPS - FROM HIGHER TO LOVER." 

810 GO TO 710 

680 LET Ll»18400*(Ml?8*N«a)/(I3.6*(Nt8-Ml«8)> 

830 IF ABS(L1-S(F))«.005 THEN 890 

840 IF F>1 THEN 870 

850 PRINT "NOPE! I TRY AGAIN." 

860 GO TO 710 

870 PRINT "SORRY. TRY AGAIN! YOUR FINAL ENERGY LEVEL SHOULD BB"M 

800 GO TO 710 

890 IF F-l THEN 930 

900 IF M-l THEN 1010 

910 IF F-8 THEN 970 

980 GO TO 1010 

930 PRINT "GOOD START. THAT GIVES A WAVELENGTH 0F"L1 
940 PRINT "THE NEXT LINE IS FORMED BY WHICH TRANSITION"! 

950 LET F-F+l 
960 GO TO 740 

970 PRINT "BY GEORGE! I I THINK YOU'VE GOT ITI I THE WAVELENGTH 1S"L1 
980 PRINT "TRY ONE MORE - THE NEXT ONE. ENTER NOW.") 

990 LET F-F+l 
1000 80 TO 740 
1010 PRINT 

1080 PRINT " ANY TRANSITION FROM A HIGHER ENERGY LEVEL INTO THE” 

1030 IF N- I THEN 1080 
1040 IF M-8 THEN 1110 

1050 PRINT "THIRD ENERGY LEVEL CAUSES THE EMISSION OF A PHOTON OF THE" 
1060 PRINT "PASCHEN SERIES." 

1010 GOTO 1180 

1080 PRINT "GROUND STATE IS ACCONPANIED BY THE EMISSION OF A PHOTON OF" 
1090 PRINT "LIGHT BELONGING TO THE LYMAN SERIES."' * 

1100 80 TO 1180 

1110 PRINT "SECOND ENERGY LEVEL YIELDS A PHOTON OF THE BALMER SERIES." 
1180 PRINT 

1130 PRINT "IF YOU WOULD LIKE TO TRY ANOTHER SERIES TYPE IN THE NUMBER" 
1140 PRKNT "OF THAT SERIES; IF YOU WANT TO GO ON TO A NEB PART OF" 

1150 PRINT "THE PROGRAM TYPE 4" 

1160 PRINT "WHICH?") 

1190 80T0 880* ' 

1800 PRINT 

1810 PRINT “ YOU WILL NOV GET AN ENERGY LEVEL DIAGRAM FOR HYDROGEN." 
1880 PRINT "IT SHOWS THE ENERGY OF THE ELECTRON IN THE VARIOUS ENERGY" 
1830 PRINT "LEVELS. THE DIFFERENCE BETWEEN THE ENERGY OF THE ELECTRON" 
1840 PRINT "IN A HIGHER LEVEL AND THAT IN A LOWER LEVEL IS THE ENERGY" 
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1850 PRINT "OF THE EMITTED PHOTON. S(PHOTON) ■ E (HIGHER) - E (LOVER)" 
1860 PRINT 

1870 PRINT " CONTINUUM" 

1880 PRINT 

1890 PRINT "N» .....INFINITY 000000" 

1300 LET N«6 

1310 FOR I-l TO 40 

1380 LET Y»INT(40/N»8«-.56) 

1330 IF I>Y THEN 1360 
1340 PRINr 
1350 60 TO 1380 

1360 PRINT "N»"N" E> - M INT< 1 36G/M *8 )/100+ .00000 1 

1370 LET N-N-l 
1380 NEXT I 
1390 PRINT 

1400 PRINT "FIND THE ENER8ISS OF THE PHOTONS GIVEN OFF FOR THE" 

1410 PRINT "TRANSITIONS GIVEN BELOV." 

1480 LET J-0 

1430 FOR I“0 TO T*G 

1440 LET Y3»RND(I) 

1450 NEXT I 

1460 FOR I-l TO 80 

1470 LET Y3-INT(1«-(5*RND(I))) 

1480 LET Y4*IMT< !♦< 5*RND( 1+1 ) ) ) 

1490 IF Y4>Y3 THEN 1510 
1500 NEXT I 
1510 PRINT 

1580 PRINT "FROM LEVEL"Y4" TO LEVEL"Y3" THE ENERGY OF THE PHOTON 1ST") 
1630 INPUT El 
1 

1540 LET J-U*T 
1850 PRINT 

1580 LET E— 13.6*(l/(Y4t8)-l/(Y3t8)) 

1570 IF ABS(E1-B)>.005 THEN 1610 

1580 IF >6 THEN' 1660 

1590 PRINT "GOOD. TRY ANOTHER" 

1800 WTO 1460 

1610 PRINT "THE ENER6Y OF LEVEL"Y4 " IS"-13.6/(Y4t8) 

1680 PRINT "THE ENERGY OF LEVEL"Y3 " lS"-13.6/(Y3t8> 

1630 PRINT 

1640 PRINT "THEIR DIFFERENCE - PHOTON ENERGY -"E 
1650 GO' TO 1460' 

1660 PRINT "THANK YOU. AND GOODBYE." 

1670 END 
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DISCIPLINE 



PHYSICS 



SUB J EC *1 CALORIMETRY 

PROGRAM NAME CALORI 



DESCRIPTION: 



Calorimetry experiments are simulated by the computer permitting 
the student to enter the mass and temperatures of two quantities of water. 
The computer calculates and prints out the equilibrium temperature of 
the mixture. The student must then determine the heat energy, in 
calories, to be supplied (or removed) from each mass to obtain the 
equilibrium temperature. 



OBJECTIVES: 



A. To acquaint the students with conservation of energy concepts in- 
volving calorimetry. 

B. To determine the equations governing these relationships. 



PRELIMINARY PREPARATION : 

A. Student - Must know definitions for calorie and specific heat. 

B. Materials - Table of Specific heats 



DISCUSSION ; 

Calorimetry, in its simplest form, is presented as part of a 
class lesson. The concept of heat energy balance is developed by 
presenting several examples, with the computer, based on the definition 
of the " calorie. " Specific heat is introduced by a similar approach 
(replacing the water of the initial examples, with alcohol; specific heat of 
. 6 cal / gm-0°C. ) 

The program can be modified (with relative ease) to incorporate 
different materials or combinations of different materials. 

When this program was used as an introduction to calorimetry, 
it was noted that many students were able to determine the equations 
describing the phenomenon by utilizing the stated results from the computer. 
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HEAT AND CALORIMETRY 
YOU HAVE TWO BEAKERS OF WATER . 

U1AT IS THE MASS (IN GRAMS) AN3 THE TEMP (IN DEGREES) OF THE 
WATER IN THE FIRST BEAKER? 80 #50 

WHAT IS THE MASS (IN GRAMS) AND THE TEMP (IN DEGREES) OF THE 
WATER IN THE SECOND BEAKER? 40 #60 

THE FINAL TEMPERATURE OF THE MIXTURE IS 53*33 DEGREES* 

HOW MANY CALORIES WERE INVOLVED IN CHANGING THE TEMP OF 
THE FIRST BEAKER FROM 50 TO 53.33 DEGREES? 260 

YOU'RE CLOSE, ENOUGH* THE CORRECT ANSWER IS 266.4 CALORIES. 

HOW MANY CALORIES WERE INVOLVED IN CHANGING THE TEMP OF 
THE SECOND BEAKER FROM 60 TO 53*33 DE6REES? 240 

YOU'RE MORE THAN 3 PERCENT OFF • YOU SHOULD HAVE SAID 
266*8 CALORIES* 



WANT TO TRY AGAIN (1-YES# O-NO) t ? 1 

CHOOSE A LIQUID t O-WATER# 1-ALCOHOL. WHICH? 1 

YOU HAVE TWO BEAKERS OF ALCOHOL . 

WHAT IS THE MASS (IN GRAMS) AND THE TEMP (IN DEGREES) OF THE 
ALCOHOL IN THE FIRST BEAKER? 100*50 

tHAT IS THE MASS (IN GRAMS) AND THE TEMP (IN DEGREES) OF THE 
ALCOHOL IN THE SECOND BEAKER? 100*70 

THE FINAL TEMPERATURE OF THE MIXTURE IS 60 DEGREES. 

HOW MANY CALORIES WERE INVOLVED IN CHANGING THE TEMP OF 
THE FIRST BEAKER FROM 50 TO 60 DEGREES? 1000 

YOU'RE MORE THAN 3 PERCENT OFF* YOU SHOULD HAVE SAID 
600 CALORIES. 

HOW MANY CALORIES WERE INVOLVED IN CHANGING THE TEMP OF 
THE SECOND BEAKER FROM 70 TO 60 DEGREES? 600 

YOU'RE CLOSE ENOUGH. THE CORRECT ANSWER IS 600 CALORIES. 



WANT TO TRY AGAIN < 1- i. O-NO) t ? .• 



READY 
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I REM A.C. CAGGIANOI PATCHOSUE H.S.; PHYSICS; 8-*69 
8 REM THIS PROGRAM INVOLVES CALORIMETRY EXPERIMENTS OR THEIR 
3 REM SIMULATION* 

5 REM REVISED BY C.LOSIK 8-85-70 

6 REM K TELLS WHICH LIQUID* U TELLS WHICH BEAKER* 

7 REM M( J) ARE THE MASSES OF LIQUID* TCJ) ARE THEIR TEMPERATURES 

80 LET K-0 
90 DIM M(8)*T(8> 

100 PRINT " "*"HEAT AND CALORIMETRY" 

110 PRINT 
118 PRINT 

114 PRINT "##########" 

116 PRINT 

180 PRINT"YOU HAVE TWO BEAKERS OF"i 
130 GOSUB 590 
140 PRINT"." 

150 FOR J-l TO 8 

1TO GOSUb"mO T IS THE MASS <IS qbams) THE TEMP CIN DE GREE S; OF THE" 

180 PRINT"IN THE"; 

190 GOSUB 540 
800 PR I NT "BEAKER"! 

810 INPUT M( J> *T( J) 

880 PRINT 
830 NEXT J 



840 LET T3-CM(1)*TC 1 )+M< 2)*T< 2) )/(M< 1 ) >MC 8'/ ) 

845 LET T3-INTC 100*T3*.5>/100 ** 

850 PRINT”THE FINAL TEMPERATURE OF THE MIXTURE IS "T3" DEGREES." 

860 PRINT 

870 FOR J-l TO 8 

880 PRINT"HOV MANY CALORIES WERE INVOLVED IN CHANGING THE TEMP OF" 

890 PRINT" THE "i 

300 GOSUB 540 

310 PRINT" BEAKER 

380 PRlNT"FROM "T(J>" TO "T3" DEGREES"; 

330 INPUT H 

335 PRINT 

340 LET G-ARS(H) 

350 LET T-ABSIT3-TC J> > 

360 IP G<»0 THEN390 ' 

370 IF S*M(U>*T-0 THEN 400 
380 GOTO 430' 

390 IF ABS((G-S*M( J)*T>/8>».03 THEN 430 

400 PRINT"Y0U'RE CLOSE ' ENOUGH. THE CORRECT ANSWER IS "1 

405 GOtO 440 

410 PRINT 

480 80T0460 

430 PR I NT" YOU ’RE MORE THAN 3 PERCENT OFF. YOU SHOULD HAVE SAID" 

440 PRINT INTC 100*S*M< J)*T+.5>/IOO " CALORIES.” 

450 PRINT ' 

460 NEXT J 
465 PRINT 

470 PRINT "WANT TO TRY AGAIN C 1-YES* O-NO) I “; 

475 INPUT Q 

480 IF Q-Q THEN 660 

483 IF Q<»1 THEN 465 

485 PRINT "CHOOSE A LIQUID I 0 -HATER* 1 -ALCOHOL. WHICH"! 

490 INPUT K 

500 IF K*(K-I><>0 THE I! 485 

510 GO TO 110 

540 IF J-8'tHEN 570 

550 PRINT" FIRST "I 

560 GOtO 580 

570 PRINT" SECOND "; 

580 RETURN 

590 IF K-l THEN 630 

600 PRINT* HATER "I 

610 LET S-li 

680 S0T06S0 

630 PRINT" ALCOHOL "I 

640 LET S-.6 



650 RETURN 
660 END 
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DISCIPLINE PHYSICS 

SUBJECT RADIOACTIVE DECAY 
PROGRAM NAME DECAYl 



DESCRIPTION : 

Radioactive decay is treated pseudo -quantitatively, by permitting the 
student to determine the approximate number of radioactive particles remaining 
after various times. 



OBJECTIVES : 

To induce a M feel n for exponential decay, by repeated exercises. 



PRELIMINARY PREPARATION: 

A. Student - Awareness of terms: half-life, exponential, and radioactivity 

B. Materials - none 



DISCUSSION: 



The concept of radioactive decay is presented playfully as a game, 
allowing the student to challenge his own ability in determining (with 5, 10, or 20% 
error), the number of radioactive "chips" remaining after various times. The 
number of chips successively decreases with each trial, increasing the level 
of difficulty as the program runs. In each case, the exact number remaining 
is given, following the students* entered value. 

Individuals or small groups, find this program exciting. They enjoy 
the game approach, at least the first time through it, and seem to be motivated 
by the opportunity to *' break the bank. '* 

This program can be used as an integral part of a class lesson to introduce 
the concept, or to motivate group discussion and participation concerning the 
phenomena. 
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— T lit NEW CLEA CASINO 

MR- A. TOM MICK# GENERAL MANAGER OF THE NEW CLEA CASINO# 
HAS# AT TIMS T*0# DISCOVERED 100*000 RADIOACTIVE PLAYING 
CHIPS AT HIS TABLE. THEIR HALF-LIFE IS !0 MINUTES. EACH CHIP 
TRANSMUTES SPONTANEOUSLY AND COMPLETELY IN A RANDOM FASHION* 

AT VARIOUS TIMES T# AFTER T-O# YOU MUST DETERMINE WITHIN 
A CERTAIN PERCENTAGE# HOW MANY CHIPS ARE LEFT* 

TO FURTHER THE INTEREST OF THE GAME# YOU WILL START WITH 
$l#000 AND THE HOUSE WITH AN UNSPECIFIED AMOUNT. HALF THE 
MONEY YOU HAVE WILL RIDE ON EACH GUESS YOU TAKE. LET'S SEE 
IF YOU CAN BREAK THE HOUSE BEFORE THE CHIPS RUN OUT. " 

THE HOUSE OFFERS THE FOLLOWING ODDSt 

8> 2 TO 1 ODDS FOR GUESSING WITHIN 80 PERCENT 

4) A TO 1 ODDS FOB GUESSING WITHIN 10 PERCENT 

8> 8 TO 1 ODDS FOR GUESSING WITHIN 5 PERCENT. 

ENTER THE NUMBER 2# 4# OR 6 FOR THE ODDS YOU WANT AFTER THE 

QUESTION MARK IN THE COLUMN LABELLED ODDS. 



YOUR $ HOUSE S TIME <MIN> ODDS 



1000 1 .000000E+6 7.2 7 6 

HOW MANY CHIPS LEFT 7 60700 
ACTUAL NUMBER LEFT IS 60716 
YOU WON* TRY AGAIN. 

5000 996000 13#9 76 

HOW MANY CHIPS LEFT 7 30150 
ACTUAL NUMBER LEFT IS 36164 
YOU WON. TRY AGAIN. 



85000 9 76000 86.9 7 6 

HOW MANY CHIPS LEFT 7 IS5G0 
ACTUAL NUMRKR l.F.R*T IS IS 50 2 
YOU WON. TRY AGAIN-. 



185000 6 76000 30.7 7 6 

HOW MANY CHIPS LEFT 7 11900 
ACTUAL NUMBER LEFT IS 11913 

YOU CAN BREAK THE HOUSE IF YOU TRY A LONG SHOT* 



625000 376000 46.4 76 

HOW MANY CHIPS LEFT 7 3500 
ACTUAL NUMBER LEFT IS 3494 

YOU BROKE THE HOUSE* YOU NEEDED ONLY THE MINIMUM NUMBER OF GUESSES 
CONGRATULATIONS. ... 

YOU MUST KNOW A LOT ABOUT RADIOACTIVITY AND THINGS. 

THANKS FOR PLAYING*. - - 



CHECK NO. 3499 
DATE! — — ——— — 19 



PAY TO THE ORDER 0? CASH— S 1.001000E+6 



THE NEW CLEA CASINO 



A* TOM MICK 
GENERAL MANAGER 



DONT SPEND IT ALL IN ONE PLACE. 



READY 
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100 

105 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

2X0 

220 

230 

240 

eso 

260 

270 

260 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

530 

640 

650 

660 

670 

680 

690 

700 



REM RICHARD P. P AV# FATCHOGUE H.3., (PHYSICS) REVISED NOV. 26# 1968 
rAUDOHIZE 

REM THIS IS A GAME BASED ON RADIOACTIVE DECAY. 

PRINT " ' — the new CUlA casino M 

PRXNT 

PRINT " MR. A. TOM MICK# GENERAL MANAGER OT THE NEW CLEA CASINOV 
PRINT "HAS# AT TIME T-0# DISCOVERED 100#000 RADIOACTIVE PLAYING"’ 
PRINT "CHIPS AT HIS TABLE. TRElR HALF-LIFE IS 10 MINUTES. EACH CHIP" 
PRINT "TRANSMUTES SPONTANEOUSLY AND COMPLETELY IN A RANDOM FASHION." 
PRINT 

PRINT " AT VARIOUS TIMES T# AFTER T»0# YOU MUST DETERMINE WITHIN 
PRINT "A CERTAIN PERCENTAGE# KOV MANY CHIPS ARE LEFT." 

PRINT 

PRINT " TO FURTHER THE INTEREST OF THE GAME# YOU WILL START WITH 

PRINT "$l#000 AND THE HOUSE’ WITH AN UNSPECIFIED AMOUNT i HALF THE" * 
PRINT "MONEY YOU HAVE WILL RIDE ON EACH GUESS YOU TAKE. LET’S SEE" 
PRINT "IF YOU CAN BREAK THE HOUSE BEFORE THE CHIPS RUN OUT."' 

PRINT 

PRINT "THE HOUSE OFFERS THE FOLLOWING ODDSt" 

PRINT " 2) 2 TO l ODDS FOR GUESSING WITHIN 20 PERCENT" 

PRINT " 4> 4 TO l ODDS FOR GUESSING WITHIN 10 PERCENT" 

PRINT " 8) 8 TO 1 ODDS FOR GUESSING WITHIN 5 PERCENT." 

PHINT 

PRINT "ENTER THE NUMBER 2# 4# OR 8 FOR THE ODDS YOU WANT AFTER THE" 
PRINT "QUEST 1 ON MARK IN THE COLUMN LABELLED ODDS." 

PRINT 

PRINT "YOUR S"# "HOUSE S"# "TIME CMJN>"# "ODDS" 

LET A«0 
LET B-0 
LET T-0 
LET Y" 1000 
LET C»0 
PHI NY 

IF AI3SC G-D) <1500 THEN 450 
LET G*5 
LET D*2 
LET B*B*1 

FOR I«1 TO 3*A*ABS(G-D) 

LET T3»INT( 100+RNDC-Y) )/lO 
NEXT 1 
LET T-T+T3 

LET D“INT< 1E5*EXP( - .0693*1 > ) 

IF D*0 THEN 660 
PRINT Y#iOOIOOO-Y#T# 

INPUT A 

IF A-2 THEN 610 
IF A-4 THEN 610 
IF A«8 THEN 610 

PRINT "SORRY PAL# WE DONT OFFER THOSE ODDS." 

IF C«1 THEN 620 
LET C-l 
GOTO 520 

PRINT "HOW MANY CHIPS LEFT "I 
INPUT G 

PRINT "ACTUAL NUMBER LEFT IS "ID 

IF A-2 THEN 700 

IF A«4 THEN 680 

LET P-.05 

GOTO 710 

LET P«.l 

GOTO 710 

LET P**8 



20 



0 Copyright 1971* Polytechnic Institute of Brooklyn 



121 



Physics 

DECAY1 



710 LET T*10*B 

720 IF ABS<D-Q><«P*D THEN 770 
730 LET YrlNT<Y-Y/2> 

740 IF Y<*50 THEN 620 

750 PRINT “TOO BAD# YOU LOST?/ TRY AGAIN*** 

760 GOTO 400 

770 LET Y*INT< Y*A*Y/2 > 

780 IF 1000000*Y«1 THEN 690 

790 2F Y>2E5 THEN 640 

800 PRINT “YOU WON. TRY AGAIN.** 

810 GOTO 400 

620 PRINT **IT SEEMS YOU JUST CANT GET THE HANG OF IT. SAVE YOUR BREAD*** 
830 GOTO 960 

640 PRINT “YOU CAN BREAK THE HOUSE IF YOU TRY A LONG SHOT*" 

850 GOTO 400 ‘ ~ 

860 PRINT “OOOOPS... SORRY PAL# THE LAST CHIP JJST DISINTEGRATED*** 

870 PRINT “THE HOUSE IS CLOSED.*' 

680 GOTO 960 

890 PRINT “YOU BROKE THE HOUSE. YOU NEEDED ONLY “J 
895 LET Y-1001000 
900 IF B > 5 THEN 930 

910 PRINT “THE MINIMUM NUMBER OF GUESSES. “ 

920 GOTO 940 

930 PRINT BJ “GUESSES.'* 

940 PRINT “CONGRATULATIONS*** 

950 PRINT “YOU MUST KNOW A LOT ABOUT RADIOACTI VKTY AND TKINGS*“ 

960 PRINT “THANKS FOR PLAYING* •“ * ' 

970 PRINT 

980 PRINT “ — — 

990 PRINT 

1000 PRINT “ * CHECK NO*“JB*D 

1010 PRINT 

ivbv mint •* DATE! ”J 

1030 PRINT " 19--“ 

1040 PRINT 
1050 PRINT 

1060 PRINT “ PAY TO THE ORDER OF— “1 

1070 PRINT ” CASH-*— -“1 

1080 PRINT “S“JY 
1090 PRINT 
1100 PRINT 

11 10 PRINT “ THE NEV CLEA CASINO A* TOM MICK" 

1120 PRINT ** GENERAL MANAGER** 

1130 PRINT 

1140 PRINT “ 

1150 PRINT 

1160 PRINT “DONT SPEND IT ALL IN ONE PLACE. *’ 

II 70 END 
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DISCIPLINE CHEMISTRY- PHYSICS 



SUB J EC T NUC LEAR DECAY 

PROGRAM NAME DECAY2 



DESCRIPTION: 

This program will do the following: 

A. Calculate half-life from 2 readings on a geiger counter, and the 
time between them. 

B. Calculate mass of a radioactive sample remaining after some given 
amount of time. 

C. Prints out a table showing mass or number of particles of a 
radioactive sample remaining vs. some range of time. 



OBJECTIVES : 

A. To provide tables and graphs for a better understanding of the 
exponential decay of a radioactive substance. 

B. To provide a calculator for determining the amount of mass of a 
radioactive sample remaining after some given amount of time. 

C. To provide a calculator for half-life experiments. 

PRELIMINARY PREPARATION : 

A. Student - The student should have a. general introduction to half- 
Tiie before the use of the program. 

B. Materials - none 



DISCUSSION: 



It is difficult to teach about the exponential (logarithmic) manner 
by which radioactive elements decay without meaningful illustrations and 
simulations. 
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With this program, a number of interesting possibilities are 
available. For example, if the initial mass is 100 g and the time is 
equal to 10 half-lives with an increment equal to the half-life, the 
student will see the mass decrease to 0. 1 g during that time. More 
important, the example may be generalized to show that for any radio- 
active sample: 

after 1 half-life 50% of the substance remains 
after 2 half-life 25% of the substance remains 
after 3 half-life 12. 5% of the substance remains 
after 10 half-life 0.1% of the substance remains 

You may also illustrate nuclear decay by using particles instead 
of mass. Use Avogadro 1 s number of particles witl students who feel 
comfortable with scientific notation. For the othe you may use a 
number up to 1, 000, 000 without having exponential \ A bers print 
out in the table. 

The fact that the teletype unit takes about 8 seconds to type out 
a line provides you with cute little gimmicks. Set up a run with S seconds 
(or any multiple of 8) and the print -out of the table will keep time with 
the decay of the sample substance. 

Please note that the half-life calculations are not accurate for a 
small number of particles, thus it is misleading to make runs go to zero 
mass or zero particles. 
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nALr -Li rn= Jb.W/bb 

***.****¥ * + 

WRAT Ib TOvJn CnOlCE? 1 

vi/nA X ib TnE 1NX TIaL nEADi.MG ON TnE GEiGKn CUOiMlnxo 
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** * * * * * * * * 

WhAT ib xOUn OnOiOn? E 

UHA T lb 1’hE mALF-LXKEj INITIAL MAbo Oh bAMFLE* AiMU 
TOTAL TIME OF DECAY ? Itf*b6*?6 

nALF-LI FE» ltt INI TIAL MAob = S6 TOTAL XlME= 76 
MAbb OF bAMFLE REMAINING® 3.000*5E 

********** 

WHAT IL YOOxi OriOIOE? 3 

DO YOU WANT TO WORK Wi Tn KAuTXOLEb On MAbb? (ANbWEu 1 FOn 
FAATICLEb Oil E FOU MAbS) 7 1 

WHAT Ib TilE nALK-LlFE* INITIAL NUMdEn OF FAuf iGLEb IN TnE 
bAMFLE* TO TAL ELAFbED TIME FOR DEG Ax > AND TnE 
INOiiEMENT OF ELAPSED TIME? 1 0 ^ 6 • o E EE 6 » luox 10 

HALF-L1FE= 10 INITIAL NO. OF KAiiTXGLnb- 6.OEOO0OE+E3 
TOTAL T1ME» 100 INCREMENTS 10 
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1* 1 ME 



FAnilOLcb HAni’- LObb lOlAL HAnf. LUoo 
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7 • b360 6SE+33 
3 • 763310E+33 
1 -C01694E+33 
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0 
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O 

3-00 yo ooE+3a 
A • b 1 Ac oob + ido 
5-367 3* 3£+33 
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b *03 i o 3 1 E + 33 
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12A iiVFul A 

iid6 IF 4*“^ Iniiiv JuO 

lido IF a<> 1 xxir.N ldd 
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JN ‘-i iir.i0r.4i COUNlxm*" 
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viLL »»£x\A 1 ,v .ir it... 01 Ur.N rii- OUN 1 Or l'ir.r. 

- F x » 1 N i —> ujt h iadLh. Jr.J.viA C I'.hjj OF jHhrLL 
00* iirjH ux. Nu« OF FA*i i i 0 Lii.ii v/a* I i N r- • " 
(UnAFn Oi-iiONAL) NOi&S ru». inr. i'auLE JUj" 
rjJol livx-' Ui lOlx-lL i jU*.£. AND IlMh i NCu&rj&ft i • 
imAMFLu: IF lOiaL i 1 . y :r-= luo ,-w.D line." 

i i\iCxiEMENl'= iU # inr,N 1' i i*. £ In iru 1 , iAdL£ wli-L 

o£ lu#do#jo# #luu«" 

• END Uh FnOCixlAiV 



b7u 
dbO 
2* u 
Juu 
JlU 
320 
330 
3Au 



F.il N i" 
PnlN 1 M 
FrlilNl i M 
FEINT 

Fill iv i . 
Fill Ml* 

F n 1 0 i 
1 nF U i • 



• * * * * * * + * * jf. * 



' wnrt i 1 j lUUrt 



.vo if: IN hMi uivr. f.iujLLi v o i 1M& i y .0oi" 
aL dh InfuiEU In int, aAAE uNIi:> M 
OF MdAdOi.E Clh: dr.Cd* #Mi N-> • #El'C • ) M 



CnOl Ok" J 



JbUFni i\i 1 

360 IF A*= 1 inci'j Aid 
370 IF 4 *.= £ in£N AVd 
3b0 IK A =0 rnFivi 5 70 
390 IF a<> 4 InKN 320 
A00 5I0F 

AldFxIINT" ivnA i lr lnt, INITIAL nEADlNG Oi\i Tn£ G£iG£u COJNTExv#" 
A2d FEINT'* fnr- o£C0nu iiFAOliNJG# AND Tht ilMh LJlirW££iN) ii£ADl i\iG5 *• M 
A30 INFO! i_>#a#0 
A3J IF A>d iritiV A AO 

A35 FuliNiT "lNlTlML xikiADlivG ALwhY 5 Lh^o InAw r'iivAL xu^ADlOG**' 
A37 GO TO A 3u 

AAO LE i D=C •6V31*C)/L0G(A/d) 

A 50 Filler 

A60 FFl NT "INUIAL n£ADING« M A> "oEOOxMD nr.ADI NG = M d; " 1 1 iU="C 
A70 FiilNT M nALF - L1FE= ,, D 
AttU GO TO 300 

A90 FxilNT "WHAT 15 THE HALF- LIFE# INITIAL fr A 55 OF 5 AF 1 FLE# AND" 
500 FEINT " rOTAL TIME OF DECAY"; 

510 INPUT E#F#G 

520 LET Fi=F*EaF (-•693l J * t G/E) 

530 FHINT 



5A0FrtINT ,, HALF-LIFE= M E; ,, INiriAL MA55="F; !i IGIAL T1ME="G 
550 PrtINT "MA55 OF 5AMFLE EEMAI NIN G«"rt 
560 GO TO 300 

570 PrtINT "DO YOU WANT TO WOrtK WITH PAUTICLE5 Ort MA 55? ( AN5WErt 1 FOE J 
5b 0 FEINT" FAETICLE3 Ou 2 FOE MA55) 

590 INPUT J 
600 FEINT 

610 IF 0=1 TEEN 760 
615 IF J<>2 Trt£N 570 

620 FEINT" WHAT 15 TEE HALF-LIFE# INITIAL MA55 OF 5AMFLE# TOTAL" 

630 PEINT"ELAP5ED TIME FOE DEGAS# AND THE iNOxiEMENT OF " 

640 PEINT"ELAP5ED TIME"; 

650 INPUT E# F#e#M 
660 LET W=0 
670 LET u=0 
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obo 

bbu FOu G = 0 l On. bt'EF W 
b/U LeI n=K+EAF C - • 6*3 1 *G/K ) 

bbo Lt i w=rijJj(n*L) 

0*0 LE 1‘ u = u+ : ,v 
vJU IF F > 1 E6 i'nkiv Vciu 
vlo IF o* 3 1 i'neli'v *40 
'J d. u PitlA'i G # n j u 

vJu GO iO * bO 

*40 Fit 1 :\f i 1 :Ni i (G-»-«t>^i»VJ*Cri+*b)^ii»r< w+«5)*lfri‘(u + #b) 

ObO LET i- = n 

V6u i\J LA 1* t; 

*7j ruItMi 
vou FititNu 
V*U F»ii.\il’ 

louo Fulwi" 00 *00 ir.K AaOVh* DATA GHAFriEl)? t 0-i\IO) M J 

10 1 o i ivFU i’ ii 

1020 iK n=u irtOtv OOO 
10^3 IF u<> 1 i’HEN 1OO0 
1000 PulNi 
10 40 Pul NT 
1050 FxiliVT 

1060 FhINT 1AB< 30 ) j "FlAbb C On PAniJCLEb) uEtoAINlNG" 

10 70 PHI M f ‘ 

lObO PHI NT " TAB<62);K 

1100PHINr ,, HNE , S ,, I-- I 1 1 1 1" 

1120 FOB Q = 0 TO K STEP M 
1130 LET H= F * EaP <-«6*0i*G/E) 

1140 LET iil = INTCrt/F'*S0 + .5> 

1150 IF HI <=50 THEN 1170 
1160 LET Hl=50 

1170 PRINT G,"!"; TAB<nl+14.5>;"*” 

1250 NEXT G 
1260 GO TO 300 
1250 END 
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■ ELECTRIC FIE L D M ' ^ENG TH 
\M NAME El’ ILL!) 



DESCRIPTION : 

The electric-field strength at a nmm r .1 r Ixed charge is calculated 

and printed. A line of charge is then generav* by ling charges to either side 

of the fixed charge. As each additional . is a . _ed, the new electric-field 

strength is calculated and selected values a ■ printec. 

Similarly, the field strength at a point near a plane of charge is cal- 
culated and printed as the plane ia generated with tin addition of other lines to 
the previous line of charge. 

In both cases, the fields can be seen "o approach a limiting value which 
is then printed for an infinite line and plane. 



OBJECTIVES: 



A. To show that the electric-field strength approaches limiting values for a line 
and a plane of charge. 

B. To let the student discover how the field strength depends upon the distance 
from a point to a line of and to a plane of charge. 



P RELIMINARY PREPARATION: 

A. Student - A knowledge of Coulomb* s law and the vector addition of electric 
fields. 

B. Materials - none 



DISCUSSION : 

The operator chooses a distance (y) away from a fixed charge (Q^) at which 
he wishes to know the field st rength. He also chooses the number of charges (N), and 
their spacing (C), that he wishes to add to each side of the fixed charge to generate 
a line of charge. After the line has been generated, the operator enters the number 
of such lines (M) that he wishes to use in building up the plane of charge. 

Actual values of force are not given, only relative values. When the fixed 
charge (Q 2 ) is at a distance Y= 1 from the test charge (Qj), the force is 1 unit. The 
force may be calculated in Newtons if all distances are in meters, and the program 
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is slightly changed so that Qj and Qg are in coulombs. If' both of these 

charges were to be taken as single elementary charges, then the following changes 

should be made: 

230 L£'i Qi = 1. 6*E-19 

290 LET Qz = h 6*E-19 

300 LET X ^ 9*E9 

If the spacing (C) is taken as . 1 and the number of charges (N) as 
1000, then three runs through the program using the distance between the 
test charge and the fixed charge (y) asl , 2, and 4 should be sufficient for the 
relationships to be determined. A casual inspection of the exact values of the 
field strength for these three distances should yield the following conclusions: 

1. The field strength varies inversely with the square of the distance 
away from a single poi nt charge. 

2. The field strength varies inversely v.ith the distance from a line of 
charge. 

3. The field strength remains constant even though the distance from 
a plane of charge changes. 

It should be noted in 2 and 3 above, that the spacing between charges 
must be small as compared to the distance away from the line or plane of charge, 
and of course that the line be so long and the plane so broad that any further 
increase in length or breadth be insignificant. 

An interesting bonus to this program is discovered v/hen distances from 
test charge to plane is decreased tc , 001, . 0001, and . 00001. Here it can be 
seen that the field no longer is constant, but changes as an inverse square law 
for a single charge because the test charge begins to M see M the fixed charge 
instead of the whole plane. The M EXACT VALUE. . . , ,f is calculated for 
charges smeared ever the whole plane and not in discrete point charges as we 
have here; hence, the disagreement with actual field values. 

This program may be run by an individual student after proper 
introductory explanation concerning vector addition of electric fields, 
contributions of the charges being added in the line or lines to the plane. It 
may also be used as a class demonstration and discussion. When used with a 
whole class it is best to have a television camera and monitor available for 
immediate display of print out. A summary table constructed either by the 
teacher on the board or by 3tudents at their desks is useful in analysis of the data. 
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THIS PROGRAM WILL CALCULATE THE FORCE ON A TEST CHARGE 
THAT IS PLACED SOME DISTANCE# Y # AWAY FHOM ANOTHEH CHARGE# 

A LINE OF CHARGEJ AND A PLANE OF CHARGE. 

YOU MUST ENTER THE DISTANCE AWAY# Y# THE SPACING DESIRED 
BETWEEN CHARGES# C# AND ALSO BETWEEN LINES OF CHARGE THAT 
MAKE UP THE PLANE OF CHARGE* 

YOU MUST ALSO CHOOSE THE NUMBER OF CHARGES <N> IN THE LINE OF 
CHARGE THAT YOU WOULD LIKE TO USE C 500 IS A GOOD VALUE IF 
YOU USE A SPACING OF .1 FOR C. 

JUST SO THE CALCULATIONS DON'T GO, TOO FAR I'VE INCLUDED 
A STOP THAT DEPENDS UPON THE ANGLE FROM TEST CHARGE TO THE 
LAST CHARGE TO BE CALCULATED. IF THE ANGLE IS LESS 
THAN 2 DEGREES# CALCULATIONS WILL CEASE. 

INPUT Y#C#N? I# -1#I000 



M3 . OF CHGS • 

ON EACH SIDE FORCE 



0 1 



1 


2.97 


2 


4.86 


3 


6 • 6 i 


4 


6*21 


5 


9.65 


6 


10.91 


7 


12.01 


e 


12*9^ 


9 


13.78 


id 


14.49 


20 


17.98 


30 


19 


40 


19.42 


50 


19.62 


60 


19.73 


70 


19.8 


80 


19.85 


90 


19.88 


100 


19.9 


200 


19.98 


28 7 


19.99 



EXCESSIVE COMPUTER TIME WOULD BE REQUIRED TO CALCULATE 
THE FORCE FOR ADDITIONAL CHARGES » 



IKE EXACT VALUE FOR AN INFINITELY LONG LINE OF CHARGE IS 20 
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l'liysii's 
1 r'u. Li I 



I 



NOW ADD HOWS ON EITHEK SIDE OF THE LINE OF CHARGE OUST 
CALCULATED. THE SPACIN':; BETWEEN ROWS WILL BE THE SAME AS 
THE SPACING BETWEEN THE CHARGES. 

ENTER THE NUMBER OF EQUALLY SPACED nOWa V ,/U WANT ON EACH SIDE 
? 500 



NO. OF LINES 
ON EACH SIDE FORCE 



0 


20 


1 


59-56 


2 


9 b * 0 2 


3 


134-69 


4 


169.16 


5 


201.14 


6 


230-53 


7 


257.36 


8 


261 • 73 




303.82 


10 


323.81 


20 


446.55 


30 


501.31 


40 


531 . 18 


50 


549-8 


60 


562.47 


70 


571 .62 


60 


578-54 


90 


58 2 *96 


100 


5 -.6 -3 


200 


60 5 *0 i 


28 7 


614.05 



EXCESSIVE COMPUTER TIME WOULD BE REQUIRED TO CALCULATE 
THE FORCE FOR ADDITIONAL LINES OF CHARGE. 



THE EXACT VALUE FOR AN INFINITE PLANE OF CHARGE IS 620.310 



DO YOU WANT ANOTHER RUN <.i=YES. U=NOi l 7 0 

READY 
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100 
10 5 
106 
10 7 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

275 

280 

290 

295 

300 

305 

310 

315 

320 

\ 330 

340 

350 

353 

356 

358 

360 

365 

367 

370 

380 

390 

400 

410 

420 

430 

440 

450 



REM JOHN HOSIE - NOHTHPORT HIGH — 3/14/69 
REM REVISED BY C-LOSIK 8-25-70 
REM SEE BELOW FOR IMPORTANT VARIABLES 
REM , F B TYPE VARIABLES ARE FORCES 

REM i °VE CHOSEN THE ELECTROSTATIC CONSTANT TO BE ONE AND 

REM ALL CHARGES TO BE ONE SO THAT THE FORCE CALCULATED 

REM IS JUST A RELATIVE FORCE. IF YOU WOULD LIKE YOU MAY CHANGE 

REM THINGS WHEN YOU RUN IT TO GET EXACT FORCES IN NEWTONS AND 

REM USE CHARGES IN MICROCCULOMBS OH WHAT EVER ELSE YOU WISH* 

PRINT "THIS PROGRAM WILL CALCULATE THE FORCE ON A TEST CHARGE" 

PRINT "THAT IS PIJ^CED SOME DISTANCE* Y* AWAY FROM ANOTHER CHARGE*" 
PRINT "A LINE OF CHARGE* AND A PLANE OF CHARGE." 

PRINT "YOU MUST ENTER THE DISTANCE AWAY* Y; THE SPACING DESIRED" 
PRINT "BETWEEN CHARGES* C * AND ALSO BETWEEN LINES OF CHARGE THAT" 
PRINT "MAKE UP THE PLANE OF CHARGE." 

PRINT "YOU MUST ALSO CHOOSE THE NUMBER OF CHARGES CN> IN THE LINE OF 
PRINT "CHARGE THAT YOU WOULD LIKE TO USE C 500 IS A GOOD VALUE IF" 
PRINT "YOU USE A SPACING OF .1 FOR C." 

PRINT "JUST SO THE CALCULATIONS DON'T GO TOO FAR I'VE INCLUDED" 

PRINT "A STOP THAT DEPENDS UPON THE ANGLE FROM TEST CHARGE TO THE" 
PRINT "LAST CHARGE TO BE CALCULATED. IF THE ANGLE IS LESS" 

REM Q1 AND 02 ARE THE CHARGES 
LET 01=1 
LET 02=1 

REM K IS THE ELECTROSTATIC CONSTANT 
LET K® 1 

REM A IS THE CUTOFF ANGLE. THIS MAY BE CHANGED TO YOUR PREFERENCE 
LET A®2 

PRINT "THAN"A" DEGREES* CALCULATIONS WILL CEASE." 

LET S*SINC3.14159*A/180> 

PRINT 

PRINT "INPUT Y*C*N"; 

LET Fi*0 
INPUT Y* C* N 
IF C<=0 THEN 365 
IF Y<*0 THEN 365 
IF N>=0 THEN 370 

PRINT "ONE OF YOUR VALUES IS UNREASONABLE • " 

GO TO 330 

PRINT 

PRINT 

PRINT "NO. OF CHGS •" 

PRINT "ON EACH SIDE" *"FORCE" 

PRINT " ---"*" — " 

FOR 1-0 TO N 
LET X=I*C 

LET R»SQRCX*X+Y*Y> 

LET F=K*01*02/CR*R) 
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460 IF I<>0 THEN 490 

470 LET F1“F 

480 GO TO 510 

490 LET Fl=Fl+2*F*(Y/ : \> 

510 IF K-IO THEN 580 

520 IF I»100D*INT< I/100G> THEN 580 

530 IF I >1000 THEN 600 

540 IF I*=100*INT( 1 / 100 ) THEN 580 

550 IF 1>100 THEN 600 

560 IF I=10*INT (1/10) THEN 580 

570 GO 70 600 

580 PRINT J*INTU0Q*Fl + .5>/lQ0 
590 IF N-0 THEN 330 
600 IF Y/R<S THEN 612 

610 NEXT 1 

611 GO TO 620 

612 PRINT 1*INTC 100*F1«-. 51/100 

613 PRINT "EXCESSIVE COMPUTER TIME WOULD BE REQUIRED TO CALCULATE" 

614 PRINT "THE FORCE FOR ADDITIONAL CHARGES." 

620 PRINT 

625 PRINT 

630 PRINT "THE EXACT VALUE FOR AN INFINITELY LONG LINE OF CHARGE IS"; 

640 PRINT 2*CK*Q1/C)/Y 

650 PRINT 

660 PRINT 

670 PRINT 

680 PRINT "NOW ADD ROWS ON EITHER SIDE OF THE LINE OF CHARGE JUST" 

683 PRINT "CALCULATED. THE SPACING BETWEEN ROWS WILL BE THE SAME AS" 
686 PRINT "THE SPACING BETWEEN THE CHARGES." 

690PRINT"ENTER THE NUMBER OF EQUALLY SPACED ROWS YOU WANT ON EACH SIDE" 

700 INPUT M 

702 IF M»»0 THEN 710 

704 PRINT "NO NEGATIVE VALUES* PLEASE." 

706 GO TO 690 
710 PRINT 
720 PRINT 

730 PRINT "NO. OF LINES" 

740 PRINT "ON EACH SIDE"* "FORCE" 

750 PRINT "- "*" 

760 FOR P-0 TO M 

770 LET Z»P*C 

780 LET R1-SQRCZ*Z+Y*Y> 

790 IF P<>0 THEN 850 
830 LET F3-2*(K*Q1/C)/Y 
840 GO TO 870 

650 LET F3-F3+2*F1*<Y»2)/CR1 »2> 

870 IF P-1000*INT (P/1000 ) THEN 930 

880 IF P>1000 THEN 940 

890 IF P»1G0*INT(P/100> THEN 930 

900 IF P>100 THEN 940 

910 IF P«10*INT(P/10> THEN 930 

920 IF P>10 THEN 940 

930 PRINT P*INT(1Q0*F3<-. 51/100 
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940 IF Y/RKS THEN 952 

950 NEAT P 

951 GO TO 960 

952 PRINT P .» I NT ( 1 00*F3+ • 5 ) / 100 

9o3 PRINT "EXCESSIVE COMPUTER TIME WOULD BE REQUIRED TO CALCULATE 
954 PRINT "THE FORCE FOR ADDITIONAL LINES OF CHARGE." 

960 PRINT 
965 PRINT 

970 PRINT "THE EXACT VALUE FOR AN INFINITE PLANE OF CHARGE IS"i 
980 PRINT 2<»3.14159*(K*Q1 )/(C*C) 

990 PRINT 
1000 PRINT 

10 iO PRINT "DO YOU WANT ANOTHER RUN C1=YES# 0=N0> : "i 
1020 INPUT C 
1030 IF C>0 THEN 330 
10 50 END 
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DISCIPLINE PHYSICS 

SUBJECT KINEMATICS RE VIEW 
PROGRAM NAME KINERV 



D ESCRIPTION: 



Questions are asked concerning the motion of a ball thrown vertically 
upwards at various velocities. Neglecting air resistance, the student is to determine 
such quantities as 1) maximum obtainable height; 2) time of flight; and 3) the height 
reached at different times. 



OBJECTIVES : — 

To develop and review b^sic skills in solving projectile motion problems. 



PRELIMINARY PREPARATION : 

A. Student - previous classroom instruction and a working knowledge of algebra. 



B. Materials - none 



DISCUSSION: 



The student is presented with various problems concerning the motion of 
the ball. In each case, the initial velocity V Q of the ball is given. There are five 
basic questions asked; 

1. Determine maximum height reached; 

2. Find the height after t seconds; 

3. Find the velocity when the ball is at height h; 

4. Determine the time of flight; and 

5. Find the velocity after t seconds. 

The quantities V , h, and t are randomly determined for each question 
asked and the correct answers are given following the student response. 

The program is designed to serve as a review of typical motion problems 
discussed in class and to aid in overcoming student n uncertainty 11 in the solution 
of numerical problems. 

The program may be modified to cover other areas of review by entering ■ 
new questions in place of those presently offered (see listing). 
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REVIEW OF KINEMATICS 

A BALL IS THROWN STRAIGHT UP AT VAkIOUS VELOCITIES. 

Ain FuICTIQN IS NEGLI GIBlE* TnE UPWAnD DIRECTION IS TAKEN 
AS POSITIVE, AND TnE DOWNWARD DInECT I ON AS NEGATIVE. 

THE LOCAL ACCELERATION DUE TO GRAVITY IS -10 ME TEns/SECOND/sEC . 

ALL VALUES AKE IN M.K.S. METnIC UNITS. 

FOn VARIOUS TnnOWING SPEEDS, YOU MUST ANSWER CERTAIN 
QUESTIONS ABOUT TnE BALL iN FLIGnl. 



1 . THE UPWARD THROWING SPEED IS 25 ME TEnS/SECOND . 

WHAT IS THE VELOCITY WnEN IT BEACHES A HEIGnT OF lb. 45 
METERS ABOVE TnE GuOUND ? 16 

YOU'RE CORRECT WITHIN 5 PERCENT. TnE CORRECT HNsWEn IS 16 



2 . TnE UPWARD TnnOWING SPEED IS 16 ME TEnS/SECOND . 

WHAT IS THE VELOCITY AFTEn 2 SECONDS OF FLIGHT? 14 
YOU'RE OFF MORE THAN 5 PEnCENT. THE COnnECT ANSWEn IS -4 . 



3 • THE UPWARD THROWING SPEED IS 35 ME TErts/SECOND . 

HOW HIGH ABOVE THE GROUND WILL THE BALL GO? 7U 

YOU’RE OFF MORE THAN 5 PERCENT. THE COnnECT ANSWEn IS 61.25 



4 . THE UPWARD THROWING SPEED IS 29 METEnS/SECOND . 

HOW LONG WILL IT TAKE THE BALL TO RETUnN TO THE GROUND? 6.0 
YOU’RE CORRECT WITHIN 5 PERCENT. TnE CORRECT ANSWER IS 5*b . 



5 . THE UPWARD THROWING SPEED IS 21 METERS/SECOND. 

WHAT IS THE VELOCITY WHEN IT REACHES A HEIGHT OF 10.35 
METERS ABOVE THE GROUND ? 12 

YOU’RE OFF MORE THAN 5 PERCENT. THE COnnECT ANSWER IS 15.29706 . 



OUT OF 5 QUESTIONS* YOU GOT 2 RIGHT. 

DON’T YOU KNOW ANYTHING ABOUT THROWING THINGS UP??? 

WANT TO TRY ANOTHER 5 PROBLEMS <1=YES, 0=N0> S ? 0 
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Physics-KINERV 

HOR^^THI DEsIgNED^TO^SERVE^ Afl^A^REV^I EW^TEST IN KINEMATICS. 

130 RRM IML^VERT^ ELSE is *A* iron COrtPAHISONS> 

140 TXM WE GENERATE a V RANDOMLY AND RANDOMLY ?ICK A QUESTION 



--REVIEW OF KINEMATICS--- 



145 RANDOMISE 
ISO LET P«0 
155 LET R*0 
160 PRINT” 

170 PRINT 

180 PRINT” A BALL IS THROWN STRAIGHT UP AT VARIOUS VELOCITIES*” 

190 PRINT”AIR FRICTJON IS NEGLIGIBLE* THE UPWARD DIRECTION 1$ TAKEN” 

200 PRINT”AS POSITIVE, AND THE DOWNWARD DIRECTION AS NEGATIVE.” 

210 PRINT 

220 PRlNT”THE LOCAL ACCELERATION DUE TO GRAVITY IS *10 3ETERS/SEC0ND/SEQ 
230 PRINT 

240 PRlNf'ALL VALUES ARE IN M*K.S* METRIC UNITS*” 

250 PRINT 

260 PRINT” FOR VARIOUS THROWING SPEEJS, YOU MUST ANSWER CERTAIN” 

270 PRXNT”QUESTI0NS ABOUT THE BALL IN FLIGHT.” 

280PRINT 
290PRI NT 
300 LET U«RUD<X) 

330 IF fi-OTHEN 350 

340 IF fl/5“ I NT < fl/5 ) THEN 770 

350 LET V«5+INVC35«0) 

360LETZ«UlNTt4*999*U> 

370 lF(Z-Pl*<V-R>-0 THEN 300 
300 LETP-S' 

390 LET G-Q+l 
400 LET R*V 
410 PRINT 

420 PRINT Q”. THE UPWARD THROWING SPEED IS "V" METERS/SECOND*” 

430 IF2-1 THEN 540 
440 IF Z«2 THEN 590 

450 IF Z«3 THEN 630 

460 IF Z>4 THEN 500 

470 LET A*.05*V*V 

480 PRINT”H0W HIGH ABOVE THE GROUND WILL THE BALL G0"1 
490 G0T0670 
500 LET A^V/5 

5i0 PHI NT” HOW LONG WILL IT TAKE THE PALL TO RETURN TO THE GROUND” I 
520 G0T0670 

540 LET T*1 ♦ INK 2*V*U) /10 
550 LET A«V*T-5*T*T 

560 PRINT M HOW HIGH ABOVE THE GROUND WILL THE BALL BE AFTLR ”JT 
570 PRINT M SEC0NDS OF FLIGHV”i 
550 G0T067O 

590 LET T a l«’XNT<8*V*U)/K> 

600 LET A«*V- 10*T 

610 PRINT"WHAT IS THE VELOCITY AFTER ”T” SECONDS OF FLIGHT”; 

620 GO 'TO 670 

630 LET S" • 5*1 NTC V^V^U^/IO 
6^0 LET A-SURtV*V-20*S> 

650 PRINT” WHAT IS THE VELOCITY WHEN IT REACHES A HEIGHT OF ”15 
660 PRlNT”METER$ ABOVE THE GROUND ”1' 

670 INPUT G 

680 PRINT”YOU *RE”1 

690 IF ABS< <G-A)/A)>*05 THEN 730 

700 LET C*C+1 ' 

710 PRINT ” vORRECT WITHIN ”1 
720 G0T074O 

730 PRINT” OFF MORE THAN ”1 

740 PRINT”5 PERCENT. THE CORRECT ANSWER IS ”A” 

750PRINT 
760 GOT 0300 
770 PRINT 

760 PR 2 NT” OUT OF ”0” QUESTIONS* YOU GOT ”C” RIGHT.” 

790 IFC/Q>a*7 THEN810 

800 PRINT”DON*T YOU KNOW ANYTHING ABOUT THROWING THINGS UP???” 

810 PRINT • ‘ 

820 PRINT ”WANT TO TRY ANOTHER 5 PROBLEMS U-YES. 0*NQ> ! ”J 
830 INPUT M t‘ 

835 LET U-RNDCX) 

840 IF M-l THEN* 350 
850 IF M<>0 THEN 810 
860 END 
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DISCIPLINE PHYSICS 



SUBJECT LENSES 

PROGRAM NAME U'.NSES 



DESCRIPTION: 



The focal length, object distance, image distance, image size, or object 
size, may be calculated if sufficient information is entered by the student. 



OBJ ECTIVES : 

A. To solve for focal length of a lens from laboratory data. 

B. To check image position and size from lab data. 

C. To solve lens problems. 



PRELIMINARY PREPARATION: 

A. Student - Data from a lens experiment. 

B. Materials - none 



DISCUSSION: 

If this program is used in conjunction , th a lens laboratory, the student 
may check his calculations of focal length. 

He may also check his image size and position from known object size 
and position. 
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THIS PROGRAM MAY BE USED TO SOLVE LENS PROBLEMS. 

IN THE ORDER GIVEN ENTER THE VALUES FOR THE FOLLOWING: 
FOCAL LENGTH.* OBJECT DISTANCE.* IMAGE DI STANCE.* OBJECT 
SIZE.* IMAGE SIZE. INPUT 0 (ZERO) FOR UNKNOWN VALUES. 

EVERY TIME THE COMPUTER ASKS 'READY ? • t ENTER 1 IF YOU HAVE 
MORE PHOBLEMS TO DO.* OR 0 TO END THE PROGRAM. 



*** READY ? 1 

WAT ARE YOUR VALUES FOR F, P* 0; 0.* I? 1 .* 2.* 3 .» 4.* 5 

YOUR Q IS NOT CORRECT FOR THE F AND P YOU HAVE ENTERED 
NOTE CHANGED Q. THE PERCENT ERROR ON YOUR 0 IS: 

50 PERCENT. 

YOUR I IS NOT CORRECT FOR THE 0 YOU HAVE ENTERED 
NOTE CHANGED I. THE PERCENT ERROh ON YOUR I IS: 

25 PERCENT. 

« 

F= 1 P= 2 Q= 2 0= 4 1= 4 



*** READY ? 1 

WAT ARE YOUR VALUES FOR Fj Pj 0, 0> I? 1* 2, 2 .04, 4> 3 . 9 

YOUR Q IS CORRECT TO WITHIN 2 % 

NOTE CORRECTED 0. 

YOUR I IS CORRECT TO WITHIN 4.411765 X 
NOTE CORRECTED I. 

F= 1 0 0= 2.04 0= 4 1= 4.08 

*** READY ? 1 

WHAT ARE YOUR VALUES FOR Ft P* Q, Oj I? U*5jti*4j4 
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YOUH I IS NOT CORRECT FOR l'RE 0 YOU HAVE ENTERED 
NOTE CHANGED I. THE PERCENT ERROR ON YOUR I IS: 
37.5 PERCENT. 

F= 3.076923. P= 5 U= 8 0= 4 



*** HEADY ? 1 

uHAT ARE YOUR VALUES FOR F> P> 0> I? 46> 53*0 > 34> 32 

YOUR I IS NOT CORRECT FOR THE 0 YOU rtAVE ENTERED 
NOTE CHANGED I. THE PERCENT ERROR ON YOUR I IS: 
85.67775 PERCENT. 

F= 46 P= 53 0= 348.2857 0= 34 



*** READY ? 1 

WHAT ARE YOUR VALUES FOR F, P> tt* 0> I? 4857>2>6>0>0 

YOUR Q IS NOT CORRECT FOR THE F AND P YOU HAVE ENTERED 
NOTE CHANGED 0. THE PERCENT ERROR ON YOUR Q IS: 
399.8765 PERCENT. 

F= 4857 P= 2 U=-2. 000824 
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100 HEM JOHN W. H05IE - UORTHPORT HIGH - PHYSICS 

101 HEM REVISED 11-18-70* L. BRAUN 

110 PRINT "THIS PROGRAM MAY BE USED TO SOLVE LENS PROBLEMS." 

120PRINT 

130PHINT”IN THE OHDEH GIVEN ENTER THE VALUES FOR THE FOLLOWING:'* 
140PRINT 

150PRINT”F0CAL LENGTH* OBJECT DISTANCE* IMAGE DISTANCE* OBJECT" 

160PRI NT 

170PRINT"SUE* IMAGE SUE. INPUT 0 C EERO I FOR UNKNOWN VALUES." 
180PRINT 

162 PRINT "EVERY TIME THE COMPUTER ASKS 'READY?'* ENTER IF YOU HAVE" 
183 PRINT 

lb4 PRINT "MORE PROBLEMS TO DO. OR 0 TO END THE PROGRAM." 

186 PRINT 
188 PRINT 

190 PRINT "*** READY 

191 INPUT F 

192 IF F =0 THEN 780 

193 IF F<>1 THEN 188 
195PRINT 

196 PRINT "WHAT ARE YOUR VALUES FOR F* P* W* 0* I"* 

200 INPUT F*P*0*0*I 
210 LET P=ABSCP) 

220 LET 0=ABS CO) 

230 PRINT 

240 IF F=0 THEN 390 
250 IF P<>F THEN 280 

260 PRINT "THE IMAGE IS AT INFINITY" 

270 GO TO 186 

280 IF P =0 THEN 360 

290 LET Z=P*F/CP-F) 

300 IF Q=0 THEN 340 
310 IF Z = Q ThEN 420 
312 IF A8SCQ-ZX0.05*Z THEN 344 

320 PRINT "YOUR Q IS NOT CORRECT FOR THE F AND P YOU HAVE ENTERED" 

330 PRINT "NOTE CHANGED Q. THE PERCENT ERROR ON YOUR U IS:" 

335 PRINT 1G0*ABSCZ-Q)/ABSCZ) J " PERCENT." 

340. LET Q=Z 
342 GO TO 420 

344 PRINT"YOUR 0 IS CORRECT TO WITHIN"* 100*ABS( Q-Z ) /ABS C Z )"%" 

346 PRINT"N0TE CORRECTED U." 

350 GOTO 420 

360 IF U=0 THEN 560 

370 LET P=fcl*F/CQ-F> 

380 GO TO 420 
390 IF P*0 THEN 550 

400 IF 0=0 THEN 490 

410 LET F=Q*P/ C (j+P ) 

420 IF 0=0 THEN 730 

430 IF 1=0 THEN 470 
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435 LET 49=0 *tl/P 

440 IF 1 = 49 THEN 660 

445 IF ABSC I -49 ) <0 .05*49 MEN 474 

450 PRINT " y OUH I IS NOT CORRECT FOH THE 0 YOU HAVE ENTERED” 

460 PHINT "NOTE CHANGED 1= THE PERCENT EHP.Ou ON YOUk I IS:" 

465 PHINT 100*ABS<I-49)/ABSC4y>! " PERCENT." 

470 LET 1=49 
472 GO TO 660 

474 PRINT"Y0UH I IS CORiiECT TO WITHIN"! luU*ABSC I -A9 ) /ABS ( 49 ) "%" 

4 76 PHINT”NOTE CORRECTED I." 

47b LET 1=49 

4b 0 GO TO 660 

490 IF 0<>0 THEN 520 

500 PHINT "IF F>Uj AND 0 OH I = 0! CANNOT CALCULATE - TuY AGAIN." 

510 GO TO lb6 

520 IF 1=0 THEN 500 

530 LET 0=P*I/0 

540 GO TO 650 

550 IF U<>0 THEN 590 

560 PHINT "THE FOCAL LENGTH CANNOT BE CALCULATED IF BOTH OBJECT" 
570 PHINT "AND IMAGE DISTANCES AHE 4EH0." 

5b 0 GO TO 1 b 6 

590 IF 0=0 THEN 610 

600 IF I <>0 THEN 640 

610 PHINT "MUST KNOW BOTH OBJECT AND IMAGE SI4E TO FIND FOCAL" 

620 PHINT "LENGTH AND OBJECT DISTANCE." 

630 GO TO 1B6 

640 LET P=U*0/I 

650 LET F=0*P/<P+U> 

660 PHINT 

665 PHINT "F = "F, "P = "P, "0="0. "I= ,, I 

67Q PRINT 

6b0 PRINT 

690 GO TO lb6 

700 PRINT "INFORMATION ABOUT EITHER FOCAL LENGTH OH BOTH OBJECT" 
710 PRINT "AND IMAGE SI4E NEEDED FOR COMPLETE SOLUTION." 

720 GO TO 1 b6 
730 IF 1=0 THEN 760 
740 LET 0=I*P/0 
750 GOTO 660 
760 PHINT 

765 PRINT "F="F > "P=”p, "Q="U 
770 GO TO 6 70 
780 END 
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DISCIPLINE PHYSICS 



SU B J EC T ' MASS DEFEC T 
PROGRAM NAME MASSD 



DESCRIPTION: 



A classroom presentation that could be used to calculate mass 
defect, and give the answer in terms of usable energy (kw-hr, of 
electr icity). 



OBJECTIVES: 

A. To calculate and explain mass defect. 

B. To introduce the concept of binding energy. 

C. Conversion of mass to energy, (atomic power) 

PRE LIM.l NARY PREPARATION: 

A. Student - The student should have an understanding of nuclear 
"particles, and the law of conservation of mass and energy. 

B. Materiils - The teacher should make available a table of isotopes 
that TTf fcs the actual mass. (Handbook of Chemistry and Physics, 
Chemical Rubber Company) 



DISCUSSION : 

It should be noted that the masses used here include the electrons. 
The very small difference which would be obtained if the bare nuclear 
mass were known is negligible for the purpose of this calculation. 

Time permitting, it would be beneficial to have the student 
investigate the conversion of atomic mass units(AMU) to calories anc 
kilowatt-hours in order to recognize the significance of the units and che 
magnitude of the numbers involved. 
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THIS PROGRAM IS DESIGNED TO INVESTIGATE MASS DEFECT 

WHICH OF THE ELEMENTS WOULD YOU LIKE TO CONSIDER? 
REMEMBER WE ARE DEALING WITH A SINGLE ATOM* THEREFORE 
IN ADDITION TO THE ATOMIC NUMBER WE ARE GOING TO NEED THE 
ACTUAL MASS (IN AMU) AND THE MASS NUMBER OF THE ISOTOPE 
YOU WANT TO WORK WITH. 

WHEN THE, MACHINE TYPES A QUESTION MARK (?) TYPE IN 
YOUR ANSWER THEN HIT RETURN KEY. USE NUMBERS OF UP TO 
SIX SIGNIFICANT FIGURES. ROUND IF NECESSARY TO 6 DIGITS. 
IN THE VALUES FOR MASS DEFECT. 



THE ATOMIC NUMBER IS ? b 
THE ACTUAL MASS IS ? 15.9y49 
THE MASS NUMBER IS ? 16 

THE SUM OF TnE MASS OF THE b PROTONS AND IRE b NEUTRONS 
PLUS THE WEIGHT OF THE b ELECTRONS IS THE CALCULATED 
MASS- 

CALCULATED MASS - ACTUAL MASS = MASS DEFECT 
16.13199 - 15.9949 = .1371 

THE MASS DEFECT IN TERMS OF ENERGY IS THE EUUI VALENT OF 
2936 X 10 »y CAL. PER MOLE OF THIS SUBSTANCE* 

OR lb4 X 10 ty CAL* PER GRAM. 

IF WE DIVIDE THIS BINDING ENERGY BY TrtE NUMBER OF 
PARTICLES IN ThE NUCLEUS* WE GET A RATIO KNOWN AS THE 
BINDING ENERGY PER NUCLEON* WHICH IS A MEASURE OF THE 
STABILITY OF THE NUCLEUS. THE MORE 'BINDING' 

PER NUCLEON* THE MORE STABLE IS THE NUCLEUS. 

THE BINDING ENERGY PER NUCLEON IS : 1.276744E-5 ERGS. PER NUCLEON* OR 

3.047121E-13 CAL. PER NUC.* 

WHICH IS MORE COMMONLY EXPRESSED AS bOO MEV. 

THE AMOUNT OF ENERGY (BINDING ENERGY ) CONTAINED IN ONE 
GRAM OF THIS SUBSTANCE WOULD BE SUFFICIENT TO SUPPLY ALL 
THE ELECTRICAL NEEDS IN AN AVERAGE ONE FAMILY HOUSE USING 
15 KW-HRS- PER DAY FOR A PERIOD OF 14245 DAYS OR 
39 YEARS. 

IF YOU WOULD LIKE TO RUN ANOTHER PROBLEM TYPE IN 1* 

IF NOT TYPE IN 0. 

? 0 



*************** 
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REM JOftN MArtCHl SO TTO PIB SUMMER 69 BASIC 
REM REVISED BY C.LOSIK 7-22-70 
REM AT N0=A# MASS=B, MASS N0=C 
REM MASS DEFECT IS F 

PRINT" TRlS PrOGkAM IS DESIGNED TO INVESTIGATE MASS DEFECT" 
PRINT 

PRINT" WHlCrt OF i'HE ELEMENTS WOULD YOU LIKE TO CONSIDER? M 
PRINT" REMEMBER WE ARE DEALING WITH A SINGLE A TOM a THEREFORE" 
PRINT" IN ADDITION TO THE ATOMIC NUMBER WE ARE GOING TO NEED TnE" 
PRINT" ACTUAL MASS (IN AMU) AND TnE MASo NUMBER OF THE ISOTOPE" 
PRINT" YOU WANT TO WORK WlTrt." 

PRINT 

PRINT " WHEN THE MACnINE TYPES A QUESTION MAHK (?) TYPE IN" 

PRINT " YOUR ANSWER then hi r return key. USE NUMBERS OF UP TO" 
PRINT " S I A SIGNIFICANT FIGURES. ROUND IF NECESSARY TO 6 DIGITS." 
PRINT "IN THE VALUES FOR MASS DEFECT." 

PRINT 

print 

PRINT " THE ATOMIC NUMBER IS "I 
INPUT A 

print " the actual mass is 

INPUT C 

PRINT " THE MASS NUMBER IS 

INPUT B 

PRINT 

REM G IS AVOGADHO's NUMBER 
LET G=6 .023E23 
LET D = B - A 

LET E=C I .00 72b*A ) + ( 1 .00b67*D ) +( 5 .4b 59 7E-4*A) 

LET F“ I NT ( !E4*(E-C)+.5)/lE4 

PRINT " THE SUM OF THE MASS OF THE"A"PRO TONS AND THE"D"WEUTRONS M 
PRINT " PLUS THE WEIGHT OF THE" A" ELECTRONS IS THE CALCULATED" 
PRINT " MASS." 

PRINT 

PRINT" CALCULATED MASS - ACTUAL MASS = MASS DEFECT" 

Print" m e," - m c; m = "f 

PRINT 

REM CONVERSION FACTORS S 

REM 1.49 A 10-3 ERGS PER AMU 

REM 4.19 A 10 7 ERGS PER CAL. 

REM 3.6 A 10 13 ERGS PER KW-R 

REM 931.0 MEV PER AMU 

LET H=( 1 .49E-3*F*G)/4.19E7 

PRINT " THE MASS DEFECT IN TERMS OF ENERGY IS THE EQUIVALENT OF" 
PHINT INT ( H/ 1 E9+ • 5 ) "A 10 »9 CAL. PER MOLE OF THIS SUBSTANCE," 

PHINT "OR" INT( (h/C)/lE9+.5) "A 10t9 CAL. PER GRAM." 
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PrtINT 


1 


520PKIN 1* M 


Wj 


522 


LET u 


= 


525 


PHINT 




530 


PHINT 


ii 


540 


PHINT 


ii 


550 


PnINT 


■ i 


560 


PHINT 


" 


565 


PHINT 


li 


570 


PHINT 




5b0 


PHINT 


ii 


5 90 


PHINT 


ii 


600 


INPUT 


M 


610 


PHINT 




620 


PHINT 




630 


IF i v i= 1 




640 


IF N< >0 


650 


END 





IF WE DIU1DE YnlS BINDING ENEhGY BY TnE NUMBEH OF" 
BArtllCLES IN 1'nE NUCLEUS/ WE GET A nA T 1 0 KNOWN AG TnE" 
BINDING ENEHGY B En NUCLEON/ WHICH IS A MEASUHE OF TnE" 
STABILITY OF ThE NUCLEUS. in E MOuE •BINDING*" 

PEH NUCLEON/ ThE MOiiE STABLE IS THE NUCLbUb." 

THE BINDING ENEhGY PEH NUCLEON IS 
.4yE-J*F /B"EHGS . PEn NUCLEON/ Oh"; 

•4yE-3*F/(B*4. 1 yE 7 ) "CAL . B En NUC • / " 

rtiCH IS MOjtE CONN ONLY EaBhE ssED As" lOU * IN T ( y J 1 *F/B+ . 5 ) "MEU • ' 
C(h/C>*4. lyE7/S»6Eli)/15 

ThE AMOUNT OF ENEHGY (BINDING ENEhGY) CONTAINED IN ONE" 
GHAK OF i'nls SUBSTANCE WOULD BE SUFFICIENT TO SUBBLY ALL" 
THE ELEC TUI CAL NEEDS IN AN AUbuAGb ONE FAMILY HOUSE USING" 
15 KW-HhS* BEh DAY FOB. A BEnlOD OF" I N T ( u+ . s ) "DA Ys OH" 



IF YOU WOULD LIKE TO HUN ANOTnEH BHOBLEN TYBE iN 1/" 
IF NOT TYBE IN 0." 



"/"***************" 

THEN B40 
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DISCIPLINE PHYSICS 

SUB J EC T FORCES + DISPLACEMENTS 

PROGRAM NAME NEWTN2 



DESCRIPTION : 

A problematic situation is presented to the student which requires 
repeated applications of Newton 1 s 2nd law. By selecting various angles and 
forces, the operator can observe the resulting motion produced. To successfully 
complete the program, the student must complete a specified displacement 
within ten attempts. 



OBJECTIVES : 

To aid in the development of skills in applying the equations of motion. 



PRELIMINARY PREPARATION: 

A. Student - An awareness of Newton’ s 2nd law is required. In addition, some 
familiarity of force components (resolution of vectors) is necessary. 

B. Materials - Graph paper is helpful to students with below-to -average 
ability. 



DISCUSSION : 

A. Operati onal Suggestions 

This program was designed for operation by individual students or 
small groups, but the program may be us°d with a class as a 11 lead-in* ' 
demonstration of forces and vectors. The presentation is also helpful in 
describing two dimensional motion under the influence of a constant external 
force. 

When executed by small groups of average students, it has been noted that 
programs of this type stimulate discussions and involvement for those 
participa ting. 

B. Sugge sted Follow-up 

The student is confronted with a situation which requires that he 
overcome a given force (the wind), in moving a boat across a channel 10 Km. 
wide. The magnitude of the force produced by the wind on the boat varies with 
each M run” , but the direction of the vector is always southwest, i. e 45 deg. 
vith respect 'to the direction EAST. The student may vary his paddling 
force (limited to values less than 200 Newtons), and direction at interval s 
during his displacement. After each choice of variables, he is given his 
position, as well as the resulting speed and direction of the boat. A 
,.erti fi cate i s presented for successful completion of the task. 
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HINT* GRAPH PAP KB IS HELP PUL IN RIMMING IBIS PROGRAM. . 
P* KA SPUD*** * 



YOU ’BE TRY INS TO ESCAPE PAON DEVIL’S ISLAND ON A SHALL BOAT. 
DEVIL'S ISLAND IS LOCATED AT COORDINATES (0*0). 

19 SUCCEED* YOU MUST REACH A CHANNEL SO HET.3RS VIDE AND 
I0OOO METERS DUE EAST* AT ABOUT ( 10000*0). 

IN ADDITION* YOU MUST GET THERE IN P1VE MINUTES OR LESS OR 
SUPPER RECAPTURE — CHSH*HBH*H£H--) 

KMT DO YOU WEIGH <IN POUNDS)? 170 

YOUR SITUATION IS AS FOLLOWS* 

THE VINO IS BLOWING PROM THE NORTHEAST (AS DEGRESS) EXERTING 
A POaCE OP 100 NSHTONS ON YOUR BOAT. YOU MAY PADDLE WITH 
ANY FORCE IN THE EASTWARD DIRECTION (ZERO DEGREES IS EAST) 

T9 ACCELERATE YOUR BOAT ACROSS THE BAY AND THUS 
BEACH THE OPPOSITE SHORE (AND FREEDOM). 

JtOtSl THE HASS Of THE BOAT WITH YOU ABOARD IS 177 KILOGRAMS) • 

MTU WHAT FORCE (IN NEWTONS) AND DIRECTION (IN DEGREES) WILL 
YOU PADDLE? 109*8$ 

I* «$ X» 876 Y« 38 V(X>» IS V(Y)- 8 

WANT TO CHANGE FORCE OR DIRECTION (1-YES* O-NO) > ? I 

WITH WHAT FORCE UN NEWTONS) AND DIRECTION (IN DEGREES) WILL 
YOU PADDLE? 199*83 

ft* I X- 1111 Y- U2 V(X)« 37 V(Y)- 3 

man to change force or direction u-ybs* o-no> * ? 1 

WITH WAT FORCE (IN NEWTONS) AND DIRECTION UN DEGREES) WILL 
YOU PADDLE? 199*80 

T* 1 »& X- 8583 Ym 199 V(X)- 97 V(Y)- 3 

WENT TO CHANGE FORCE OR DIRECTION (1-YES* O-NO) I ? 0 

ft* 8 X* 4580 Y- 869 V(X>- 76 V(Y)- 8 

WANT TO CHANGE FORCE OR DIRECTION € 1-YES* O-NO) I ? 0 

IN 8.9 X- 7109 Y- 331 V(X>« 96 V(Y>- 1 

man to change force or direction ( i-yks* o-no> « ? 1 

Mm WHAT FORCE (IN NEWTONS) AND DIRECTION (IN DEGRESS) WILL 
YOU PADDLE? 150*10 

ft 3 X* 10173 Y* RAG V(X>- 109 V(Y)a-6 

YOU HAVE REACHED THE OPPOSITE SHORE* 

EOT AR» 845 METERS OFF COURSE. 

ALL THAT WORK FOR NOTHING! 

YOU'RE LOST IN THE SWAMPS FOREVER) GOODBYE. 

SEE IF YOU CAN IMPROVE YOUR ABILITY LATER. 



READY 
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100 HEM A.C. CAGGIANOJ PATCHQGUE H«S«1 DEC.4#68 

105 HEM REVISED BY C.LOSIK 8-18-70 

106 HEM X AND Y COORDINATES ARE USED WITH 1-TYPE VARIABLES IN 

107 REM X DIRECTION AND 8-TYPE VARIABLES IN THE Y DIRECTION 

108 REM IT IS BEST TO CHECK THE EQUATIONS BELOW 

11 OREM THIS IS A PHYSICS PROGRAM WHICH ATTEMPTS TO DEVELOP A 
180 REM 'FEEL' FO THE F*MA RELATIONSHIP 

130 PRINT R HIMTt GRAPH PAPER IS J*EU’ < FUL IN RUNNING THIS PROGRAM." 

140LETX-0 

150 LET Y-C 

160 L£ TV 1*0 

r;oLETva-o 
180 PRINT 
190LETG*0 

SOOPRINT" "#" m l"F° MA SPEED#..." 

81 OPR I MT" "*" "1"— " 

880PRINT 

830PRINT M Y0U , RE TRYING TO ESCAPE FROM DEVIL'S ISLAND ON A SMALL BOAT*" 
835 PRINT "DEVIL'S ISLAND IS LOCATED AT COORDINATES (0#0>." 

840PRINT"T0 SUCCEED; YOU MUST REACH A CHANNEL 50 METERS WIDE AND" 
850PRINT"10000 METERS DUE EAST# AT ABOUT (10000*0)." 

860PR2NT 

870PR!MT"IM ADDITION# YOU MUST GET THERE IN FIVE MINUTES OR LESS OR" 

860PRINT"SUFFER RECAPTURE <HEH»HEH*HEH— >" 

890PRINT 

300PRINT"WHAT DO YOU WEIGH (IN POUNDS)") 

310IMPUTW 
380 RANDOMIZE 
360LBTP l«RND(X) *8 
380 LET P*80*IWT(P1*.5> 

390 LET M*IMT(W/8. 8*100. 5> 

400 LET T1*0 
410 LET T*30 
480PR1KT 

430PBI NT"YOUR SITUATION IS AS FOLLOWS!" 

440PRINT 

450PRINT"THE WIND IS BLOWING FROM THE NORTHEAST (45 DEGREES) EXERTING" 
460PBINT"A FORCE OF"P H NEWtONS ON YOUR BOAT. YOU MAY PADDLE WITH" 

470 PRINT "ANY FORCE IN THE EASTWARD DIRECTION (ZERO DEGRESS IS EAST)" 
475 PRINT "TO ACCELERATE YOUR BOA." ACROSS THE BAY AND THUS" 

477 PRINT "REACH THE OPPOSITE SHORE (AND FREEDOM) ." 

480PRI NT" (NOTE I THE HASS Of THE BOAT WITH YOU ABOARD IS"M"KILGORAMS> ." 
4P0PRINT 

500PRlNT"WITH WHAT FORCE (IN NEWTONS) AND DIRECTION (IN DEGREES) WILL" 
510 PRINT" YOU PADDLE") 

580 IMPUT F«A 

530 IF ABS(F-IOO )<100 THEN 610 

540LtTG»G4-i 

550 IF 8*8 THEN 970 

S601FG»ITNENS90 

STOP# I NT" YOU MUST THINK YOU'RE SUPERMAN. BE PRACTICAL." 

5608070490 

590PRIHT"IF YOU'RE THAT STRONG# DUMP THE CHANNEL—" 

6006070490 

610 IF ABS(A><90 THEN G40 

680P#2MT M Y0U*RE HEADING THE WRONG WAY. TRY AGAIN." 

630 SOf 0490 

640 LEY A0-.0175*A 

680 LET Ala(P*C0S(A0>>-.717*P>/M 

660 LET A8»(F*SlN(A0)-« 7l7*P>/M 

670 LET X*Ai*T*7/8*Vl*T*X 

680 LET Y«Ai*T*T/S»V8*T*Y 
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m m 84 

HO LET 

t&O PRINT "T®"TI*"X«‘"lMT<X'*.5J*"Y®"lNT<Y*.5>* H V<X>»"lirr<Vl'».5>* 
781 PRINT "V< » >»"INT< V8*«9> 

788 IP X»0 THEN 730 

784 PRINT "NO HELP THAT WAY. YOU 'AS GOING BACKWARDS*" 

780 80 TO 400 
•taO IP X* 10000 THEN 800 
796 IP TI»5 THEN 900 
740 PRINT 

790 PRINT "KANT 70 CHANGE FORCE OR DIRECTION U-YgS* 0®N0) l "I 

780 INPUT R 

770 IP R-l THEN 490 

7150 IP R«0 THEN 850 

7V0 80 TO 790 

800 PRINT "YOU HAVE REACHED THE OPPOSITE SHOOS*" 

810 IP ABSCYXSOO THEN 830 

880 PRINT "RUT ARB" 1 NT <Y*. 5 > "METERS OFF COURSE." 

888 PRINT "ALL THAT WORK FOR NOTHING I" 

886 PRINT "YOU'RE LOST IN THE SHARPS FOREVER! GOODBYE •" 

887 GO TO 950 

830 IP ABS<Y>«IOO THEN 850 

940 PRINT "AND YOU MIGHT MAKE IT* THOUGH YOU ARB OPP COURSE." 

843 GO TO 950 

880 IP ABS<Y>«85 THEN 870 

080 PRINT "RUT YOU'RE CLOSE ENOUGH TO GET AWAY. GOOD LUCKt " 
863 GO TO 980 

870 PRINT “AND HAVE REACHED THE CHANNEL." 

880 PRINT "HOV SWEET SUCCESS IS III" 

890 GO TO 990 

530 PRINT "YOUR TIME IS UP." 

910 IP X««I0600 THEN 800 

389 PRINT "YOU HAVE NOT REACHED THE CHANNEL. AND ABE ONLY" 

930 PRINT IIIT<S6B<X*X*Y*Y»< .&>"METERS PROM WHERE YOU STARTED." 
940 PRINT "YOU MUST SUPPER RECAPTURE." 

945 PRINT "SORRY* CHUM* BUT THAT'S PHYSICS." 

990 PRINT 

960 PRINT "SEE IP YOU CAN IMPROVE YOUR ABILITY LATER." 

970 END 
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DISCIPLINE 
SUBJECT PHOTOELECTRIC EFFECT 
PROGRAM NAME PHOTEL 



DESCRIPTION : 

An experiment involving the photoelectric effect is simulated by the computer, 
to enable students to develop a qualitative understanding of the phenomenon. 



OBJECTIVES : 

To demonstrate a "critical wavelength' for photo-electronic emission. 



PRELIMINARY PREPARATION: 



A. Student 

1. Prior discussion of the phenomenon as an introduction to modern physics 

2. Students must be previously aware of such properties of light as wave- 
length and intensity. 

B. Materials - none 



DISCUSSION : 

The student is permitted to select any one of five metals, which is sub- 
sequently subjected to ultraviolet radiation. The electrons are " counted" by an 
ammeter incorporated in the simulated experimental set-up. 

The data collected is tabulated for three trials, indicating the current 
measured for various wavelengths. The data will indicate that: 

1. The photoelectric emission is a function of wavelength; 

2. For light of wavelength less than the critical value, the number of electrons 
emitted is dependent upon the incident light intensity: and 

3. For wavelengths greater than the critical value, light intensity has no 
effect on the emission of electrons. 

The program is designed for individual qualitative investigation of the 
phenomena, but may also be utilized by small groups. 

It should be noted that this program is advantageous where limited or 
non-existent lab equipment hinders actual experimentation. 
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THE PHOTOELECTRIC EFFECT 



Physics 

PHOTEL 



liHEN LIGHT OF SHORT WAVELENGTH FALLS ON A METAL SURFACE, 
ELECTRONS ARE EJECTED FROM THE METAL. ACCORDING TO THE 
DESCRIPTION OF THIS PHENOMENON BY EINSTEIN* THERE IS A 
MAXIMUM WAVELENGTH FOR EACH METAL ABOVE WHICH NO ELECTRONS 
ARE EMITTED. IN THIS EXPERIMENT WE WILL DETERMINE THE 
CRITICAL WAVELENGTH AT WHICH THIS OCCURS. 

THE METAL SELECTED WILL BE PLACED IN A VACUUM WHERE IT 
WILL BE BOMBARDED BY SOFT X-RAYS. THE NUMBER OF ELECTRONS 
EJECTED WILL BE COLLECTED AND COUNTED WITH AN AMMETER. 
(NOTESTHE CURRENT IS RELATED TO THE NUMBER OF ELECTRONS 
EMITTED BY THE METAL). 

SELECT ONE OF THE METALS LISTED BY TYPING ITS NUMBER. 

1) SILVER 

2) BISMUTH 

3) CADMIUM 

4) LEAD 

5) PLATINUM 



? 3 

MEASURED CURRENT <MI CROAMPERES ) 



WAVELENGTH 


TRIAL 1 


TRIAL 2 


TRIAL 3 


2380 


20 .7 


20.3 


20 .1 


2500 


20.6 


20*3 


20.4 


2631 


20.5 


20.1 


20 • H 


2777 


20.8 


20-6 


20.2 


2941 


20.1 


20. b 


20 .b 


3125 


20.2 


20 


20. b 


3333 


2-2 


3r6 


3 


3571 


4 


2 • b 


4 


3846 


1 


3.5 


3.5 



DO YOU WISH TO INCREASE THE LIGHT INTENSITY? 
( 1 «YES* 0»N0) 5 ? 1 



BY WHAT FACTOR? ( SELECT FACTOR BETWEEN ! AND 10). 
? 7 





MEASURED 


CURRENT (MICROAMPERES) 


WAVELENGTH 


TRIAL 1 


TRIAL 2 


TRIAL 3 


2330 


140 


140 


140 


2500 


140.1 


140.1 


140.1 


2631 


140 


140 


140.1 


2777 


140 


140.1 


140.1 


2941 


140.1 


140 


140.1 


3125 


140.1 


140 


140 


3333 


4.5 


4.9 


3-3 


3571 


1 .4 


1.7 


2 


3646 


4 


0 


3.7 



o 
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DO YOU WISH TO INCREASE THE LIGHT INTENSITY? 

( i “YES* 0=N0) S ? 0 

DO YOU WISH TO THY ANOTHER METAL (1=YES* U=NO) t ? 1 
SELECT ONE OF THE METALS LISTED BY TYRING ITS NUMBER-, 

1) SILVER 

2) BISMUTH 

3) CADMIUM 

4) LEAD 

5) PLATINUM 

? 2 

MEASURED CURRENT (MICROAMPERES) 



WAVELENGTH 


TRIAL 1 


TRIAL 2 


TRIAL 


2360 


10*6 


10.7 


11.1 


2500 


10*4 


11 


10 .5 


2631 


1 1 


1 1 


11.4 


2777 


1 1 .4 


10.6 


10 


2941 


11.1 


1 1.6 


10.9 


3125 


3.3 


4.6 


1.7 


3333 


4.2 


3.6 


2 


3571 


3.9 


4 


4.2 


3646 


1 


1.7 


3*3 



DO YOU WISH TO INCREASE THE LIGHT INTENSITY? 

( 1 = YES* 0=N0) l ? 0 

DO YOU WISH TO TRY ANOTHER METAL (1=YES* 0<*N0) * ? 0 

NOW BY PLOTTING THE WAVELENGTH VS. THE MEASURED CURRENT* 
(AVERAGE OF THREE TRIALS)* THE PHOTOELECTRIC EFFECT AS 
DESCRIBED BY EINSTEIN WILL BECOME APPARENT. 

THANK YOU* 



READY 
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100 HEM A.C. CAGGIANOIPATCHOGUE H.S. PHYSICS; 7-16-65 

105 HEM REVISED BY C.LOSIK 8-21-70 

106 HEM A IS WHICH METAL, L IS THE PRINTED WAVELENGTH, 

107 HEM N AHE THE CURRENTS, K IS INTENSITY, F IS INCHEASING INTENSITY 
110 PHI NT " •* , M THE PHOTOELECTRIC EFFECT" 

120PHINT 

130PHINT 

140PRI NT" WHEN LIGHT OF SHORT WAVELENGTH FALLS ON A METAL SUHFACE, " 
150PHINT"ELEC IRONS A«E EJECTED FHOM THE METAL. ACCOHDING TO TrtE" 
160PRINT"DESCRIPTIGN OF THIS PHENOMENON BY EINSTEIN, THERE IS A" 
170P8INT"MAXIMUM WAVELENGTH F OH EACH METAL ABOVE WHICH NO ELECTRONS" 
180 PHINT"AH£ EMITTED. IN THIS EXPERIMENT WE WILL DETERMINE THE" 
190PRINT"CRI T I CAL WAVELENGTH AT WHICH THIS OCCURS." 

200PHI NT 

210PHINT"THE METAL SELECTED WILL BE PLACED IN A VACUUM WHERE IT" 
220PRINT"WILL BE BOMBARDED BY SOFT X-RAYS. THE HUMBER OF ELECTRONS" 
230PRI NT" EJECTED WILL BE COLLECTED AND COUNTED WITH AN AMMETER." 
240PRINT"(N0TE:THE CURRENT IS RELATED TO THE NUMBER OF ELECTRONS'’ 
250PRINT"EMI TTED BY THE METAL)." 

260PRI NT 

270PRINT"SELECT ONE OF THE METALS LISTED BY TYPING ITS NUMBER." 
280PRINT 

290PRI NT" "," 1 ) SILVER" 

300PRINT" ","2> BISMUTH" 

310PRINT" ","3) CADMIUM" 

320PRINT" ","4) LEAD" 

330PHINT" ","5 ) PLATINUM" 

340PHINT 

345 RANDOMIZE 

350 INPUT A 

360 IF A> 1 THEN 380 

370 LET V0= • 308 

380 IF A<>2 THEN 400 

390 LET VO =.338 

400 IF A<>3 THEN 420 

410 LET VO = . 3 1 8 

420 IF A<»4 THEN 440 

4 30 LET VQ=.340 

440 IF A<5 THEN 460 

450 LET VO =.385 

460 LET K=INT( 1+2*RND(X) ) 

470 PRINT 

480 PRINT" "."MEASURED CURRENT (MICROAMPERES)" 

490PRINT "WAVELENGTH", "TRIAL 1", "TRIAL 2", "TRIAL 3" 

500 FOR L=.420 TO .250 STEP -.02 
510 LET M»INT( 1000/L) 

520 PRINT M, 

530 FOR J»1 TO 3 

540 IF L> VO THEN 570 

550 LET I=SUR(INT(2S*RND(X))) 

560 GO TO 580 

570 LET I=S0R(K*K*100+INT( 35*RND(X) ) ) 

580 LET N=INT( 10*I+.S)/10 
590 PRINT N, 
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600 NEXT J 
610 PRINT 
620 NEXT L 
630PRINT 

640PRINT"D0 YOU WISH TO INCREASE THE LIGHT INTENSITY?" 

650 PRINT "(1=YES* O-NO) ! "; 

660 INPUT G 
670 IF G=0 THEN 730 
675 IF G<> 1 THEN 650 
680 PRINT 

690 PRINT"BY WHAT FACTOR? (SELECT FACTOR BETWEEN 1 AND 10)." 

TOO INPUT F 

705 IF ABS( F**5 • 5 ) >4 • 5 THEN 690 
710 LET K=K*F 
720 GO TO A 70 
730 PRINT 

740PRINT"DO YOU WISH TO TRY ANOTHER METAL ( 1*YES* 0»N0) J "i 

750 INPUT H 

760 IF H=1 THEN 270 

765 IF H<>0 THEN 740 

770 PRINT 

780PRINT"N0W BY PLOTTING THE WAVELENGTH VS. THE MEASURED CURRENT* " 
790PRI NT" (AVERAGE OF THREE TRIALS)* THE PHOTOELECTRIC EFFECT AS" 
800PRI NT"DESCRI BED BY EINSTEIN WILL BECOME APPARENT." 

810PRINT 

820PRI NT" THANK YOU." 

830 END 
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DISCIPLINE 

SUB J EC T ENERGY LEVELS 

PROGRAM NAME PHOTON 



DESCRIPTION ; 

The student fires 15 shots, from a photon gun, at a mythical 
gaseous element with 4 randomly-selected energy levels. After each 
shot,the computer prints out the energies of photons, if any, emitted 
by the gas. The student is to construct an energy level diagram for 
the element from a knowledge of the energies of the photons emitted. 



OBJECTIVES : 

To promote a better understanding of how energy levels are 
determined from a knowledge of the emissions of excited atoms. 



PRELIMINARY PREPARATION: 

A, Student - It is desirable that he have run BOHR, but it is not a 
necessity. 

B. Materials - none 



DISCUSSION ; 

The computer randomly selects 4 energy levels for the element- 
The energies range between 1x1 and 1 5x1 CT^ joules . 

The energies of the students 1 15 shots are picked at random, 
but cover the range from 1 to 15. Whenever one of the photons shot by 
the student is capable of exciting the atom all of the possible photon 
emissions from that excited state are printed. 

By examining the photons emitted as a result of the 15 shots the 
student can construct an energy-level diagram of the element and account 
for each photon. 
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IMAGINE THAT YOU HAVE A PHOTON OUH THAT PI BBS PHOTONS WITH 
randomly selected energies* 

YOU WANT TO FIND SONS OF THE ENERGY LEVELS OF A GAS THAT 
YOU HAVE ISOLATED FROM A SAMPLE OF MOON BOCK. YOU WILL 
DO IT BY FIRING PHOTONS INTO THE GAS AND MEASURING THE 
ENERGIES OF PHOTONS EMITTED BY THE GAS* THE GAS WILL EMIT 
ONLY IF THE PHOTON YOU FIRED IS CAPABLE OF EXCITING ITS 
ATOMS TO HIGHER ENERGY STATES* 



TO FIRE A BURST OF SINGLE ENERGY PHOTONS INTO THE GAS TYPE I 
TO CEASE FIRING PHOTONS TYPE 0 

YOU HAVE 25 SHOTS TO DETERMINE THE ENERGY LEVELS. 

SHOT NUMBER ENERGY OF EMITTED PHOTONS CE-19 JOULES) 



FIREII? 


I 


I 


0 






FIRE!!? 


I 


8 


0 






P'1 RBI 1? 


I 


3 


0 






FIREI I? 


1 


4 


0 






FIREII? 


1 


5 


14 


7 


9 3 11 


FI RE I 1 ? 


! 


6 


5 


3 


8 9 


FIREI I? 


1 


7 


3 


9 




FIREI 1? 


1 


a 


0 






FIREII? 


1 


9 


0 






FIREI 1? 


1 


to 


0 






FIREII? 


1 


u 


0 






FIREII? 


I 


18 


7 


3 


3 4 8 


FIREI 1 ? 


1 














13 


0 






FIREII? 


I 


14 


0 




9 


FIREII? 


I 


15 


0 







FIND THE ENERGY LEVELS OP OUR BUBSSff - HYSTSRSU6 
AND ACCOUNT FOR EACH OF THE EMITTED PHOTONS BY DRAWING 
AN ENERGY LEVEL DIAGRAM AMD SHOWING WHICH TRANSITIONS 
GIVE RISE TO THE PHOTONS* 
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110 REM JOHN V* HOSIE - NORTH? ORT HIGH - PHYSICS 8 / 1/69 

113 REM REVISED BY Le BRAUN 5-20-70 

IIS REM RCI) ARE THE ENERGY LEVELS 

120 RANDOMIZE 

125 DIM R(2S>'K(15>«EC6) 

130 FOR J«0 TO 6 
140 LET E( J>»0 
150 NEXT J 

170 PRINT” IMAGINE THAT YOU HAVE A PHOTON GUN THAT FIRES PHOTONS WITH” 
ISO PRINT-RANDOMLY SELECTED ENERGIES*” 

190 PRINT 

200 PRINT”Y0U WANT TO FIND SOME OF THE ENERGY LEVELS OF A GAS THAT” 

210 PRINT” YOU HAVE ISOLATED FROM A SAMPLE OF MOON ROCK* YOU WILL” 

220 PRlMT”DO IT BY FIRING PHOTONS INTO THE GAS AND MEASURING THE” 

830 PRI NT”ENERG I ES OF PHOTONS EMITTED BY THE GAS* THE GAS WILL EMIT” 
840 PRI NT”ONLY IF THE PHOTON YOU FIRED IS CAPABLE OF EXCITING ITS” 

250 PRINT”ATOMS TO HIGHER ENERGY STATES*” 

260 PRINT 
270 PRINT 

300 REM THIS GENERATES A RANDOM NO. IN RANGE 0-15 
310 LET K-1NTUS*RND(X>*.5> 

380 FOR 1-8 TO 5 

330 IF K-E(I> THEN 310 

340 NEXT I 

350 FOR J-2 TO 5 

360 IF E< J)-0 THEN 390 

370 Next j 

380 GO TO 410 

390 LET E(J)-K 

400 GO TO 310 

410 FOR JM TO 4 

420 FOR 1»JM TO 5 

430 IF E(JXEU) THEN 470 

440 LET K-t(J> 

450 LET E(J)-S<I> 

460 LET EU>-K 
470 NEXT I 
480 NEXT J 

490 PRINT”TO FIRE A BURST OF SINGLE ENERGY PHOTONS INTO THE GAS TYPE 1” 
500 FRlNT”TO CEASE FIRING PHOTONS TYPE 0" 

510 PRlNT”Y0U HAVE 15 SHOTS TO DETERMINE THE ENERGY LEVELS.” 

530 PRINT 

540 PRINT ” "."SHOT NUMBER” » "ENERGY OF EMITTED PHOTONS (E-19 JOULES)” 
550 PRINT 

560 IF ' DM5 THEN 950 
570 PRINT "FIREII”! 

580 INPUT F 

583 IF F- 0 THEN 950 

586 IF F«>1 THEN 570 

500 LET D-DM 

600 LET N-0 

680 LET P-!MT<15*BND(X>*.5> 

630 FOR 1-1 TO 15 
640 IF PaK< I > THEN 620 
650 NEXT I 
660 LET K<D>-P 
670 FOR l-l TO 5. 

680 IF P-Etl) THEN 720 

690 NEXT I 

700 PRINT " "»D."0" 

710 80 TO 560 
720 FOR H-l TO I 
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730 FOR 0*1 TO I 
740 LET N*N+1 

730 LET RCN>*ECI*1-J>-ECH> 

740 NEXT 0 
770 NEXT H 
780 PRINT" ”»D» 

790 FOR M TO 35 

800 IF RC I >»0 THEN 630 

810 LET RC 1 7*0 

800 00 TO 670 

830 FOR 0*1 TO 85-1 

840 IF RC I )<>R< I+J) THEN 860 

850 LET RC !♦ J>*0 

660 NEXT 0 

870 NEXT I 

680 FOR N«i TO 35 

890 IF R(N)*0 THEN 980 

900 PRINT RCN) 1 

980 NEXT N 

930 PRINT'’ " 

940 00 TO 360 
950 PRINT 
960 PRINT 

970 PRINT"FIND THE KNERQY LEVELS OF OUR ELEMENT - MYSTERIUN" 

960 PRtNT"AND ACCOUNT FOR EACH OF THS EMITTED PHOTONS BY DRAWING” 
990 PRINT"AN ENERGY LEVEL DIAGRAM AND SHOVING VHICH TRANSITIONS" 
10 OO PRINT"GIVE RISE TO THE PHOTONS*" 

1010 END 
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DISCIPLINE 
SUBJ EC T PHOTOELECTRIC EFFEC T 

PROGRAM NAME PLANK 



DESCRIPTION : 

This program simulates an experiment to determine Planck’ s 
consult, threshold frequency, and work function of a metal. 

OBJECTIVES : 

A. To enable the student to do an experiment on the computer that he is 
not likely to be able to do in a high-school laboratory. 

B. A better understanding of the photoelectric effect. 

PRELIMINARY PREPARATION: 



A. Student 

1. He should have read and studied about threshold frequency, cut-off 
potential, and know (schematically) how the experimental apparatus 
used in such an experiment works. 

2. It is desirable that he have run PHOTELr though not a necessity. 

B. - Materials - Graph paper 



DISCUSSION : 

The student may choose one of the five metals in the program, the 
intensity of the x-rays used, and the number of different x-ray frequencies 
he would like to use. The computer then randomly chooses an x-ray 
frequency, and prints it for the student to see. The student enters voltages 
to be used as retarding potentials in the simulated tube and the computer 
prints a current for each potential entered until the current is zero when 
the cut-off potential is reached. A new frequency x-ray is then used and the 
student again tries t© find the correct potential for cut-off. 

Finally, a table of frequencies and cut-off potentials are printed 
and an assignment given (plot a graph and answer questions). 

The student may then run the program again with a different in- 
tensity and the same metal, or he may change the metal and intensity. 
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IN THIS EXPERIMENT YOU WILL BE GIVEN THE FREQUENCY OF THE 
X"RAYS BEING USED AND YOU ARE TO DETERMINE THE VOLTAGE SET- 
TING (RETARDING POTENTIAL) NECESSARY TO CAUSE THE COLLECTOR 
CURRENT TO DECREASE TO ZERO. 

FIRST CHOOSE THE METAL YOU WISH TO USE FOR YOUR PHOTO- 
SENSITIVE SURFACE. 

1 SILVER* 2 BISMUTH* 3 CADMIUM* 4 LEAD* S PLATINUM 
(MICH METAL DO YOU CHOOSE? 4 

WAT INTENSITY OF X-RAYS WILL YOU USE (FROM » TO 5)? 3 

HOW MANY DIFFERENT X-RAY FREQUENCIES WOULD YOU LIKE TO 
USE TO RADIATE YOUR SAMPLE (FROM $ TO 8>? 7 

THE X-RAY FREQUENCY IS 14.59 El 5 

VOLTAGES HIGHER THAN CUT OFF WILL GIVE CURRENT READINGS OF 
ZERO SO TRY LONER ONES. I'LL NOTIFY YOU OF CUT OFFo 
FIND THE CUT OFF (STOPPING) VOLTAGE. 

V*? 84 

1-0 

V*? 80 

la 9.780632 E-6 

(M? 83 

la 2.838173 E-6 

V*? 23.5 

la .9988259 E-6 

Va? 83*6 

I « .747686 E-6 

Va? 83.8 

CUT OFF 1*0 

THE X-RAY FREQUENCY IS 18*84 E15 

FIND THE CUT OFF (STOPPING) VOLTAGE. 

V*? 84 

la 83.08785 E-6 

Va? 88 

I- 16.97117 E-6 

Va? 35 

I- 6*16513 E-6 

Va? 40 

IaO 

Va? 38 

la 1.580819 E-6 

V-? 39.5 

1-0 

Va? 39 

CUT OFF IaO 

THE X-RAY FREQUENCY IS 9*06 El 5 

FIND THE CUT OFF (STOPPING) VOLTAGE* 



Va? 10 



Va? 5 



\A»? 1 



CUT OFF I-O 
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THE X-RAY FREQUENCY IS >3*8 E15 

FIND THE CUT OFF (STOPPING) VOLTAGE. 
V»? 20 



\mi n 

V-7 19 
W»7 18 
(A>7 18.5 
V-7 18.2 



1-0 

I- 3.755741 E-6 

1-0 

I- .4778505 E-8 

1-0 

CUT OFF 1-0 

THE X-RAY FREQUENCY IS 12*44 E1S 
FIND THE CUT OFF (STOPPING) VOLTAGE. 
V-7 15 

CUT OFF 1-0 

THE X-RAY FREQUENCY IS 9.43 El 5 

FIND THE CUT OFF (STOPPING) VOLTAGE. 



V-? 


10 


1-0 


V-7 


5 


1-0 


V-? 


8 


I- 18.50934 E-6 


V»7 


3 


1-0 


V"? 


8» 7 


1-0 


V*? 


8.5 


GUT OFF 1-0 


THE 


X-BAY 


fHEOUEMCY IS 9*65 



E1S 

FIND THE CUT OFF (STOPPING) VOLTAGE. 
V-T 1 
V-7 .4 



1-0 

1=0 



V-7 .2 

THIS FREQUENCY 18 TOO LON TO CAUSE PHOTOELECTRIC EMISSION 
I'LL GIVE YOU A NEW FREQUENCY. 

THE X-RAY FREQUENCY 1$ 10.55 El 5 

FIND THE CUT OFF (STOPPING) VOLTAGE. 



V-7 


10 


1-0 




V-7 


6 


1-0 




V-7 


5 










1- 19.15371 


S-6 


V-7 


6 










1- 9.795334 


E-6 


V-7 


7 


1- 1.395315 


5-6 


V-7 


7*5 


1-0 




V-7 


7*3 


1-0 




V-7 


7*5/ 







CUT OFF 1-0 
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X-HAY 
FREQUENCY 
El 5 FPS 



CUT OFF 
VOLTAGE 
VOLTS 




23.8 

39 



- Jwo 

13.8 

18.44 

9.43 

10.55 



IB. 8 
15 
8.5 
7.8 



PLOT A GRAPH OF CUT OFF VOLTAGES (Y AXIS) VS. FREQUENCY 

WAT IS THE MEANING OF THE POINT AT WHICH THE EXTRAPOLATED 
GRAPH INTERCEPTS THE VOLTAGE AXIS? 

WAT IS THE LOWEST FREQUENCY THAT WILL CAUSE EMISSION OF 
PHOTOELECTRONS FROM THIS METAL? 

REMEMBER THAT THE RETARDING POTENTIAL APPLIED BETWEEN THE 
EMITTER AND THE COLLECTOR AT CUT OFF* EXPRESSED IN ELECTRON 
VOLTS* IS EQUAL TO THE KINETIC ENERGY OF THE FASTEST 
ELECTRONS ESCAPING FROM THE EMITTER. FIND THE SLOPE OF THE 
GRAPH BUT EXPRESS THE STOPPING POTENTIAL IK UOULES. 

WAT IS THE VALUE OF THE SLOPE OF THE GRAPH AND WHAT SPECIAL 
NAME IS GIVEN TO' THIS CONSTANT? 

THE SAME METAL WITH A DIFFERENT INTENSITY IS WORTH 
INVESTIGATING. WHEN YOU DO THIS EXPLAIN THE MEANING 
OF ITS GRAPH WHEN COMPARED TO THE PREVIOUS ONE. 

YOU MAY ALSO WISH TO TRY A DIFFERENT METAL AND EXPLAIN 
THE MEANING OF ITS GRAPH WHEN COMPARED TO YOUR OTHER ONES* 

OR COMPARED VI TR THOSE OF ANOTHER STUDENT* 

DO YOU WISH TO TRY A DIFFERENT INTENSITY OR A 
DIFFERENT METAL <l«YESi O-NO) » ? 0 



READY 
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100 REM JOHN V* HOSiE - NORTHPORT HI OH - 7/89/69 

105 REM REVISED BY C. LOS IK 8-81-70 

106 REM M IS WHICH METAL; C IS X-RAY INTENSITY* K IS NO* OE FREQS. 

107 REM F(S> ARE THE FREQS* USED* V(S) ARE THE CUT OFF POINTS 
110 LET P-0 

180 PRINT 

130 PRINT ” IN THIS EXPERIMENT YOU WILL BE GIVEN THE FREQUENCY OF THE" 
I40PRINT "X-RAYS BEING USED AND YOU ARE TO DETERMINE THE VOLTAGE SET-" 
150 PRINT "TING (RETARDING POTENTIAL) NECESSARY TO CAUSE THE COLLECTOR" 
160 PRINT "CURRENT TO DECREASE TO EERO." 

170 PRINT 

180 PRINT " FIRST CHOOSE THE METAL YOU WISH TO USE FOR YOUR PHOTO-” 

190 PRINT "SENSITIVE SURFACE." 

800 PRINT 

810 PRINT " 1 SILVER* 8 BISMUTH* 3 CADMIUM* 4 LEAD* S PLATINUM" 

880 PRINT 
830 LET K-0 

840 PRINT "WHICH METAL DO YOU CHOOSE") 

850 INPUT M 

860 IF M>-1 THEN 880 

870 GO TO 430 

880 IF M»1 THEN 310 

890 LET FO-9.74 

300 GO TO 450 

310 IF M»8 THEN 340 

380 LET FO-8.88 

330 GO TO 450 

340 IF M>3 THEN 370 



350 

360 

370 

\ 380 

390 

400 

410 

480 

430 



450 

460 

480 

400 

500 

510 

580 

530 

540 

550 

560 

570 

380 

590 

600 

610 

680 

630 

650 

670 

680 

590 



LET FO-9.43 
GO TO 450 
IF M>4 THEN 400 
LET FO-8.88 
GO TO 450 
IF M»5 THEN 430 
LET FO-7.79 
60 TO 450 

PRINT "SORRY - THE METALS HAVE NUMBERS FROM 1 TO 5" 

GO TO 840 
DIM F( 10)*V( 10) 

PRINT 

PRINT "GHAT INTENSITY OF X-RAYS WILL YOU USE (FROM 1 TO 5)") 
INPUT C * 

IF 05 THEN 480 
IF C«1 THEN 480 
LET S-0 
PRINT 

PRINT"H0V MANY DIFFERENT X-RAY FREQUENCIES WOULD YOU LIKE TO" 
PRiNT"OSE TO RADIATE YOUR SAMPLE (FROM 5 TO 8)") 

INPUT K 
PRINT 

IF K»-S THEN 610 

PRINT "I SAID BETWEEN 5 AMD 8 FREQUENCIES*" 

GO TO 330 * 

IF K<-8 THEN 680 

PRINT "TOO MANY TRIALS FOR THE AVAILABLE TIME." 

GOTO 530 
RANDOMIZE 
LET 11-0 

FOR 11-1 TO 100 
LET F-RND(X) 
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WO LST F»INTC80Q0*F+.5>/100 
710 IF F>7 THEN 730 
780 NEXT 1 

730 LET Vi4.14*tF-F0> 

740 LET J“0 

750 PRINT "THE X-RAY FREQUENCY IS”F" El 5" 

760 PRINT 

770 IF R>0 THEN 000 

780 PRINT "VOLTAGES HIGHER THAN CUT OFF HILL GIVE CURRENT READINGS OF" 
790 PRINT "ZERO SO TRY LO HER ONES* I'LL NOTIFY YOU OF CUT OFF;" 

800 PRINT " FIND THE CUT OFF (STOPPING) VOLTAGE." 

810 PRINT 
880 PRINT "V«"l 
830 INPUT VI 
840 LET RbR+1 

850 LST U"J+1 

860 LET I*<8O*C*<V>V1>>/V+.0S*RND<X> 

870 IF I«C*80.5 THEN 890 

880 LET I«&0*C+.1*RND(X> 

890 IF V-VIK) THEN 910 ' 

900 LET I *0 

910 ir A85CV-Vi. ><• 1 THEN 1000 

980 IF VK> THEN 950 

930 LET 1-0 

940 IF J“3 THEN 1080 

950 IF 1»0 THEN 980 

960 PRINT " I- "I" E-6" 

970 GO' TO 880 

980 PRINT " 1-0" 

990 GO TO 880 

1000 PRINT " CUT OFF I»0" 

1010 GO TO 1060 

1080 PRINT "THIS FREQUENCY IS TOO LOH TO CAUSE PHOTOELECTRIC EMISSION" 
1030 PRINT "I'LL GIVE YOU A'NEV FREQUENCY." 

1040 PRINT 
1050 GO TO 680 
1060 LET S-S+l 
1070 LET F(S>-F 
1080 LET V(S)-V1 
1090 PRINT 

1100 IFS<>K THEN 680 

1110 PRINT " X-RAY". "CUT OFF" 

1180 PRINT "FREQUENCY". "VOLTAGE" 

1130 PRINT " SIS FPS"." VOLTS" 

1140 PRINT 
1150 PRINT 
1160 FOR S»1 TO K 
1170 PRINT F(S>.V(S> 

1180 NEXT S 
1190 LST P«P*1 
1810 PRINT 

1880 PRINT" PLOT A GRAPH OF CUT OFF VOLTAGES (Y AXIS) VS. FREQUENCY" 
1830 PRINT 

1835 IF'Pfrl THEN 1460 

1840 PRINT" WAT IS THE MEANING OF IRE POINT AT W1CH THE EXTRAPOLATED" 
1850 PR1NT*G8APH~ INTERCEPTS 'THE VOLTAGE AXISt" 

1860 PRINT 

1870 PRINT" WAT IS THE LOWEST FREQUENCY THAT HILL CAUSE EMISSION OP" 
1880 PR1 NT"PROTOELECTROMS FROM THIS METALt” 

1890 PRINT 

1300 PRI NT" REMEMBER THAT THE REGARDING POTENTIAL APPLIED BET VEEN THE" 
1310 PRINT" EMITTER AND THE COLLECTOR AT CUT OFF. EXPRESSED IN ELECTRON" 
1380 PR1NT"V0LTS. IS EQUAL TO THE KINETIC ENERGY OP THE FAStEST" 

1330 PR1 NT*ELECTRORS ESCAPING PRON tHE EMITTER. FIND' THE SLOPE' OP THE" 



66 



S Copyright 1971. Polytechnic Institute of Brooklyn 



Phvsics 

PIANK 



1340 PRINT" GRAPH BUT EXPRESS THE STQPPlNG'POTENTXAL IN JOULES." 

1350 PRINT 

136C PRINT” WAT IS THE VALUE OF THE SLOPE OF THE GRAPH AND WAT SPECIAL 
1370 PRINT” NAME IS GIVEN TO THIS CONSTANT?" 

1360 PRINT 

1390 PRINT" THE SANE METAL VITH A DIFFERENT INTENSITY IS WORTH” 

1400 PRINT" INVEST I GAT I NO. WEN YOU DO THIS EXPLAIN THE MEANING" 

1410 PRINT"0F ITS' GRAPH WHEN COMPARED TO THE PREVIOUS ONE.” 

14S0 PRINT 

1430 PR I NT" YOU MAY ALSO WISH TO TRY A DIFFERENT METAL AND EXPLAIN” 

1440 PR I NT" THE MEANING OF ITS GRAPH WEN COMPARED TO YOUR OTHER ONES. " 
1450 PRINT "OR COMPARED WITH THOSE OF ANOTHER STUDENT.” 

1460 PRINT 

1470 PRINT "DO YOU WISH TO TRY A DIFFERENT INTENSITY OR A” 

1460 PRINT "DIFFERENT METAL < 1»YES» 0»N0> «'"I 

1490 INPUT 0 

1500 IF Q-l THEN 170 

1510 IF Q«»0 THEN 1460 

15G0 END 
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D ISC IP LINE PHYSICS 

SUBJECT PROJECTILE MOTION 

PROGRAM NAME PRJTL 



DESCRIPTION : 

By entering the firing angle and initial speed, the computer calculates 
the coordinates, vertical and horizontal velocities, and speed of a projectile 
for equal time intervals- 



OBJECTIVES : 

To show the independence of the horizontal and vertical velocities of a 
projectile, and to facilitate the plotting of its path by eliminating tedious 
calculations. 



PRELIMINARY PREPARATION: 

A. Student - Knowledge of motion at constant velocity and at constant acceleration; 
and the vector nature of velocity and acceleration. 

B. Materials - graph paper 
DISCUSSION : 

The student enters an angle and an initial speed of a projectile. A table 
of time, X and Y coordinates, horizontal and vertical velocities, and speed of the 
projectile is printed. 

The student may then plot a graph of the position of the projectile, and 
draw vectors at each coordinate point to show the vertical and horizontal components 
of its velocity. 
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SUPPOSE YOU ARE GOING TO FIRE A PROJECTILE INTO THE AIR* 
IP YOU ENTER A VALUE POR ANGLE OP ELEVATION AND INITIAL 
VELOCITY# THE RANGE AND HEIGHT WILL BE EVALUATED* ENTER 
YOUR INFORMATION IN THE PC'S* A#V AFTER THE QUESTION MARK. 
(REMEMBER# THE ANGLE IS If? DEGREES AND THE INITIAL 
VELOCITY IS IN METERS/SRCOMD* > 



WAT ARE YOUR VALUES? 30# 800 



THE TOTAL PLIGHT TIME WAS 80*39431 SECONDS 

THE RANGE WAS 3538.399 METERS 

THE MAXIMUM HEIGHT WAS 509*8573 METERS 

BECAUSE THERE IS NO FRICTION# THE HORIZONTAL VELOCITY IS 
CONSTANT* HORIZONTAL VELOCITY - 173*8051 



THE FOLLOWING ARE POINTS ON THE CURVE AT VARIOUS TIME INTERVALS! 









VERTICAL 




TIME 


X-COORD 


Y-CQOKD 


VELOCITY 


SPEED 


0 


0 


0 


99.99998 


200 


!• 85*028 


321.1872 


166.5479 


61.81612 


191.5574 


3* 709056 


648.2543 


303.3861 


63.63632 


164.5253 


3 « 568064 


963*3315 


404.5148 


45.45451 


179.0 702 


7*4161 18 


1284*509 


471*9336 


87.27871 


175.3391 


9*870 14 


1605.636 


505*8432 


9.090902 


173*4435 


11.18417 


1926*763 


505*643 


-9.090901 


173*4435 


1839788 


2847.89 


471.9332 


>27.87271 


175*3391 


14.83888 


8569*017 


404*5138 


>45.45451 


179.0 708 


16.68685 


8890*144 


303*3848 


>63.63631 


184*5253 


16.54086 


3811.278 


168.5468 


>81.61612 


191*5574 


80.39431 


3532.399 


0 


-99.99992 


200 



IMS ANGLE AT WHICH YOU FIRED THE PROJECTILE DOES NOT YIELD THE MAX 
1MUN RANGE. WHAT ANGLE DOES? 45 

45 DEGREES GIVES THE MAXIMUM RANGE OF 4077*454 

WOULD YOU LIKE ANOTHER RUN WITH DIFFERENT A AND V? 

<1»YES# O-NO) $ ? 0 
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100 REM J.CARACCI0L0# LONGWOOD H.S.# 10-86-68# BASIC 

101 REM REVISED 8/25/70 <C. LOSIK) 

110 REM PHYSICS PROJECTILE MOTION 

120 PRINT “SUPPOSE YOU ARE GOING TO PI RE A PROJECTILE INTO THE AIR. U 
130 PRINT "IP YOU ENTER A VALUE POB ANGLE OF ELEVAtlONAND INITIAL" 

140 PRINT "VELOCITY# THE RANGE AND HEIGHT WILL BE EVALUATED* ENTER" 

150 PRINT "YOUR INFORMATION IN THE FORM A# V AFTER THE QUESTION MARK." 
160 PRINT "(REMEMBER# THE ANGLE IS IN DEGREES AND THE INITIAL" 

170 PRINT "VELOCITY IS IN METERS/ SECOND* >" 

180 PRINT 
190 PRINT 

300 PRINT "WHAT ARE YOUR VALUES"! 

220 INPUT A»VO 
830 IF VO-O THEN 690 
840 IF A-0 THEN 690 
250 IP V0«0 THEN 720 
260 IP A<0 THEN 720 
270 IF A>-90 THEN 750 
280 LET A-A*3. 14159/180 
290 LET K»VO*SINCA> 

300 LET L-V0*C0S(A> 

310 LET T-2*K/9. 80665 
320 LET B-2*K*L/9. 60665 
330 LET H-(K»2>/19.6133 
340 PRINT 
350 PRINT 

360 P8INT"THE TOTAL PLIGHT TIME HAS"!T!"SECONDS" 

370 PBINT"THE RANGE «AS"!R!"METERS" 

380 PR1NT"THS MAXIMUM HEIGHT HAS"! H! "METERS" 

390 PRINT 

393 PRINT "BECAUSE THEBE IS NO FRICTION# THE HORIZONTAL VELOCITY IS" 

396 PRINT "CONSTANT. HORIZONTAL VELOCITY >"L 
400 PRINT 

410 PRINT" THE FOLLOWING ARE POINTS ON THE CURVE AT VARIOUS "! 

420 PRINT "TIME INTERVALS!" 

430 PRINT 
440 PRINT 

445 PRINT " "#" "#" "#" VERTICAL " 

450 PRINT" TIME "#" X-COORD "#" Y-COORD "#" VELOCITY "#" SPEED " 

460 PRINT" " #" ....... ••#" — "#4 ..... « 

470 LET N-T/ll 
480 LET Tl-T 

490 FOR T-0 TO T1 STEP N 

491 LET ®"K*T-4.90333*Tt2 

492 IP Q>0 THEN 495 

493 LET 0-0 

495 LET V1-K-9*80665*T 

500 PRINT T»L*T#Q#V1#SQBCVI*V1+L*L> 

510 NEXT T 

520 IF ABSCA-. 78 5398 X.0000 1 THEN 610 
530 PRINT 
540 PRINT 

550 PRINT" THE ANGLE AT HHICH YOU FIRED THE PROJECTILE DOES NOT "! 

560 PRINT" "YIELD THE MAXIMUM RANGE. WAT ANGLE DOES"! 

580 INPUT A 

590 LET A-A*3. 14159/ 180 
600 GO TO 520 
610 PRINT 

620PRIMT"45 DEGREES GIVES THE MAXIMUM RANGE 0P M 2*(V0*2>*( .707t8>/9.8066 
640 PRINT 

642 PRINT "WOULD YOU LIME ANOTHER RUN WITH DIFFERENT A AND V?" 
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644 PRINT “(1-YES. 0»W0> t “J 

645 INPUT VI 

646 IP VI -0 THEN 76 
640 IT VK>1 THEN 644 

649 PRINT 

650 PRlNT”ENTER NEW VALUES FOR A.V AFTER THE GUtTSTIOW «APJ(." 

660 SO TO 180 

690 PRINT •* DON’T ENTER VALUES OF 2E HO.” I 
100 SO TO 160 

780 PRINT " NO NEGATIVE VALUES. PLEASE ENTER THEM CORRECTLY**i 
730 SO TO 160 

750 PRINT " GREAT SHOT. YOU COULD KILL YOURSELF THAT WRY. YOU KNOV. H 
760 PRINT " TRY AGAIN (NOT TO KILL YOURSELF. THAT 1S> ”1 
770 GO TO 160 
760 END 
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DISCIPLI NE 
SUBJECT PRINCIPLE OF LEAST TIME 
PROGRAM NAME REFLCT 



DESCRI PTION: 



An analogy is given for a light-ray reflected from a plane surface 
to demonstrate the 11 least-time 1 * principle and its relationship to the reflection 
laws of light. 



OBJECTIVES: 



To demonstrate the consequences of the M least-time* 1 principle. 



PRELIMINARY PREPARATION: 



A. Student - Should be familiar with the reflection laws of light. 

B. Materials - graph paper 



DISCUSSION : 

Given points Pj and P^ and the line 1, the 
student can vary the point P^ to note thee ffects on 
angles P and Q and their rela tionshi p to the time 
required to traverse the path F^P^I^* 

The program is presented as a game in 
which a horse (lightray) must complete a journey 
within a specified time. The student is limited 
to seven choices of Pn to complete the task. 

After a successful journey, the student may vary the point P^ to further 
establish the principle of least time. 

This program has been extremely helpful in developing the least-time 
concept and. its relationship to the laws of reflection. 

It is applicable to a classroom situation as well as small study groups. 
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YOU ARK CAMPING OUT WEST IN COORDINATE NATIONAL PARK ON 
ORDINATE MOUNTAIN* LOCATED 10 MILES NORTH Of THE 
DESERTED TOWN Of ORIGIN# WHICH IS CONVENIENTLY LOCATED 
AT (0*0) ON THE LOCAL MAP. 

A CALAMITY STRIKES! THE NEAREST HELP IS AT THE 
BAR 30130 RANCH# LOCATED AT COORDINATES (30*30). 

TO GET 'THERE* YOU MUST RIDE AN OLD HORSE 
(NAMED LISHTRAY) WHO I 

A) WILL ONLY WALK S MILES PER HOUR 
8) WILL CEASE TO WALK (AND EXIST) AFTER 10 HOURS 
C) MOST HAVE A DRINK Of WATER SOMEWHERE ALONG THE 
ABSCISSA RIVER* WHICH (IF YOU HAVEN’T GUESSED) RUNS 
ALONG THE ABSCISSA IN COORDINATE PARK 

HERE IS YOUR PROBLEM! YOU MUST PICK A SPOT 
(FRQM'O TO 30) ALONG THE ABSCISSA RIVER DURING THE 
TRIP TO GIVE LISHTRAY A DRINK* AND STILL MAKS IT TO 

mt bar 30i3o Within the time allowed; ligbthay* using 

HORSE SENSE* KNOWS ALL THE ANGLES* SO VE WILL GIVE 
THEM TO YOU# TOO. 

WERE WILL LISHTRAY STOP FOR A DRINK? 7 

ANGLE APPROACHING RIVER IS 55 DEGREES. 

ANGLE LEAVING RIVER' IS 53 DEGREES. 

WERE WILL LISHTRAY STOP P05t A DRINK? 7. S3 

ANGLE APPROACHING RIVER IS 54 DEGREES. 

ANGLE LEAVING RIVER' IS 53 DEGREES* 

UCLL* YOU Are CLOSER THAN LAST TIME. 

KEEP AN EYE ON "HOSK ANGLES* THOUGH. 

LET’S GO BACK . >R ANOTHER HORSE* 

WERE VI LL LIGHTRAY STOP FOR A DRINK? 7.3 

ANGLE APPROACHING RIVER IS 54 DEGREES* 

ANGLE LEAVING RIVER' IS 53 DEGREES. 

C’MON —YOU TRIED THAT LAST TIME* 

WERE WILL LIGHTRAY STOP FOR A DRINK? 7.35 

ANGLE APPROACHING RIVER IS 54 DEGREES. 

ANGLE LEAVING RIVER’ IS 53 DEGREES. 

C*SGM — YOU TRIED TRAT LAST TINS. 

WERE WILL LIGHTRAY STOP FOR A DRINK? 7.4 

ANGLE APPROACHING RIVER IS 53 DEGREES. 

ANGLE LEAVING RIVER’ IS 33 DEGREES* 

MCE WORK.’ YOU'NADS IT. 

IRE TRIP TOOK ABOUT 10.00007 HOURS. 

YOU CAN SEE THAT USING HORSE SENSE* LIGHTRAY KNOWS THAT 
THE ANGLES HAVE TO BE EGUAL OF REFLECTION FOR A 
MINIMUM TIME TRIP. 

IP YOU GANT TO MOVE THE RANCH* TYPE 1 
IF YOU WANT TO SEE SOMETHING 'ELSE# TYPE 8 
IF YOU WANT TO OUIT# TYPE’S 
* 3 

THANK YOU FOR PLAYING. 
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RiCK PROGRAM BY GKRARD M. DAMM* WYANDANCH HS* 8/68 

REM REVISED BY C.LOSIX 8-16-70 

DIM A(7>;B(7)*GC7) . 

REM INTRODUCTION 

PRINT "YOU ARE CAMPING OUT WEST IN COORDINATE NATIONAL PARK ON"* 
PRINT "ORDINATE MOUNTAIN* LOCATED 10 NILES NORTH Or THE" 

PRINT "DESERTED TOWN OP ORIGIN* WHICH IS CONVENIENTLY LOCATED" 
PRINT "AT C0*0> ON THE LOCAL' MAP •" 

PRINT 

PRINT "A CALAMITY STRIKES) THE NEAREST HELP i S AT THE" 

PRINT "BAR 30 i 30 RANCH* LOCATED AT COORDINATES (30*30)." 

PRINT "TO GET T.iERE* YOU MUST RIDE AN OLD NORSE" 

PRINT "(NAMED LIGHT RAY) WHO 

PRINT " "*"A> WILL ONLY WALK 5 NILES PER HOUR" 

PRINT " "*"B) WILL CEASE TO V'iLK (AND EXIST) AFTER 10 HOURS" 
PRINT " "*"C> MOST HAVE A DP. INK OF WATER SOMEWHERE ALONG THE" 
PRINT " "."ABSCISSA RIVER* WHICH (IF YOU HAVEN'T GUESSED) RUNS" 
PRINT " "* "ALONG THE ABSCISSA' IN COORDINATE PARK" 

PRINT 

PRINT "HERE IS YOUR PROBLEM! YOU MUST PICK A SPOT" 

PRINT "(FROM 0 TO 30) ALONG THE ABSCISSA 'RIVER DURING THE" 

°RIMT "TRIP TO GIVE LIGHTRAY A WllNKi AND STILL MAKE IT TO" 
.'HINT "THE BAR 30(30 WITHIN THs. TIME ALLOWED* LIGHTRAY* USING" 
PRINT "HORSE SENSE* KNOWS 'ALL THE' ANGLES, SO VS WILL GIVE" ' 

print "Them to you* too." 

REN FIRST RUN* INITIALIZE RANCH 
LET A-30 ' 

LET 8-30 

LET T9- 10 

LET R» 160/3*14159 

GO TO 500 ' 

REM SECOND RUN (OPTIONAL) 

PRINT 

PRINT "ENTER TV® NUMBERS* SEPARATED BY A COMMA* FOR THE NEW" 
PRINT "RANCH COORDINATES "J 
INPUT A*» 

LET XolO*A/(B+lO) 

LET T9- ( SORC X*X+ I 00 ) +SGR( ( A-X ) * ( A-X ) +B*B ) ) /5 

PRINT "O.Ks* LIGHTRAY WILL LAST’ ABQ0T"T9* *00 1 "HOURS THIS TIME." 
REN LOOP FOR SEVEN TRYS - EXIT LOOP IF CORRECT 
FOR 1-1 TO 7 
PRINT 

PRINT "WHERE WILL LIGHTRAY STOP FOR A DRINK"! 

INPUT X ... 

LET ACI)-IHT(R*ATN( 10/X)+*5) 

PRINT 

LET B(I)-INT(R*ATM(B/(A-X))*.5) 

PRINT "MOLE APPROACHING RIVER 1S"A( I )"DEGREES." 

PRINT "ANGLE LEAVING RIVER' I S"»< I ) "DEGRESS." 

IF'Ad )-B( I ) THEN '080 ' 

LET CtI>»ANS(AtX)-B(I>) 

IF I»I THEN 700 

IF C( I >>C( 1-1 > THEN 630 
IF CCI><C(I-l) TEEN 600 

PRINT' "C 'NOO-- YOU TRIED THAT LAST TIME." 

GO' TO 700 

PRINT "WELL* YOU ARE CLOSER THAN LAST TIME." 

PRINT "KEEP AN EYE ON THOSE ANGLES* THOUGH." 

PRINT "LET *S 80 BACK FOR ANOTHER HORSi*.." 

GO TO 700 " 

PRINT "HEY - THIS TRIP TAKES LONGER!" 
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640 PRINT "YOy HAVE A DEAD HORSE ON YOUR HANDS • TRY AGAIN-” 

660 SO TO TOO 

660 PRINT "NICE WORK® YOU MADE IT.** 

670 PRINT "THE TRIP TOOK A80UT"< SQR<X*X4lOO >^SQR< <A»X)*<A-X)*B*B> >/SJ 
675 PRINT " HOURS." 

680 PRINT "YOU CAN SEE THAT USING HORSE SENSE. LIQHTRAY KNOWS THAT" 
690 PRINT "THE ANGLES HAVE TO BE EQUAL OP REFLECTION FOR A" 

690 PRINT "MINIMUM TIME TRIP." 

695 GO TO 800 
700 NEXT I 
710 PRINT 

700 PRINT "TOO MANY GUESSES! WE ARE OUT OF HORSES." 

800 PRINT 

810 PRINT "IF YOU WANT TO HOVE THE RANCH. TYPE 1" 

880 PRINT "IF YOU WANT TO SEE SOMETHING ELSE. TYPE 8" 

630 PRINT "IF YOU WANT TO QUIT. TYPE" 3" 

840 INPUT X 
850 IF X*1 THEN 350 

860 IF X»2 THEN 900 

870 IF X*3 THEN 920 

880 GO TO 840 

900 PRINT "TIME FOB AN ACTUAL LIQHTRAY TO COMPLETE THE TRIP IS*" 

910 PRINT <SQR<X«X*100>*SQRt<A>X>*<A-X)*B*8>>/l.86ESJ" SECONDS." 

920 PRINT ' 

930 PRINT " "."THANK YOU FOR PLAYING." 

940 END 
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